diff options
| author | jao <jao@gnu.org> | 2023-09-22 18:09:57 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2023-09-22 18:09:57 +0100 |
| commit | 6d106be16772e777c5bbb2c22750a344a21ff116 (patch) | |
| tree | 48837d9bd67fa09f8c537c0988b6f17a2cb7b665 | |
| parent | 10aad175451ba020cacb1a79253fec93d2021bf0 (diff) | |
| download | geiser-6d106be16772e777c5bbb2c22750a344a21ff116.tar.gz geiser-6d106be16772e777c5bbb2c22750a344a21ff116.tar.bz2 | |
Formatting nits
| -rw-r--r-- | elisp/geiser-repl.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 5f2743e..a8b7a0a 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -846,9 +846,9 @@ This mode may cause issues with structural editing modes such as paredit." ;;; geiser-repl-superparen-mode minor mode: (defun geiser-repl--superparen-function () - (if (char-equal (char-before) geiser-repl-superparen-character) - (progn (delete-backward-char 1) - (insert-char ?\) (geiser-repl--nesting-level))))) + (when (char-equal (char-before) geiser-repl-superparen-character) + (delete-backward-char 1) + (insert-char ?\) (geiser-repl--nesting-level)))) (defvar-local geiser-repl-superparen-mode-string " S" "Modeline indicator for geiser-repl-superparen-mode") @@ -859,11 +859,13 @@ With no argument, this command toggles the mode. Non-null prefix argument turns on the mode. Null prefix argument turns off the mode. -When Superparen mode is enabled, entering the `geiser-repl-superparen-char' -character, which is ']' by default, will close all parentheses of the expression -currently being typed. +When Superparen mode is enabled, entering the +`geiser-repl-superparen-char' character, which is ']' by default, +will close all parentheses of the expression currently being +typed. -This mode may cause issues with structural editing modes such as paredit." +This mode may cause issues with structural editing modes such as +paredit." :init-value nil :lighter geiser-repl-superparen-mode-string :group 'geiser-repl |