emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/geiser 6d106be167 2/2: Formatting nits


From: ELPA Syncer
Subject: [nongnu] elpa/geiser 6d106be167 2/2: Formatting nits
Date: Fri, 22 Sep 2023 16:00:19 -0400 (EDT)

branch: elpa/geiser
commit 6d106be16772e777c5bbb2c22750a344a21ff116
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    Formatting nits
---
 elisp/geiser-repl.el | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 5f2743e3ab..a8b7a0a31d 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]