summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2023-09-22 18:09:57 +0100
committerjao <jao@gnu.org>2023-09-22 18:09:57 +0100
commit6d106be16772e777c5bbb2c22750a344a21ff116 (patch)
tree48837d9bd67fa09f8c537c0988b6f17a2cb7b665 /elisp
parent10aad175451ba020cacb1a79253fec93d2021bf0 (diff)
downloadgeiser-6d106be16772e777c5bbb2c22750a344a21ff116.tar.gz
geiser-6d106be16772e777c5bbb2c22750a344a21ff116.tar.bz2
Formatting nits
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-repl.el16
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