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

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

[nongnu] elpa/clojure-mode 414157c3e5: Fix whitespace


From: ELPA Syncer
Subject: [nongnu] elpa/clojure-mode 414157c3e5: Fix whitespace
Date: Wed, 28 Sep 2022 01:58:26 -0400 (EDT)

branch: elpa/clojure-mode
commit 414157c3e523e80cc44dca8f86f1853122ee5f6b
Author: Bozhidar Batsov <bozhidar@batsov.dev>
Commit: Bozhidar Batsov <bozhidar@batsov.dev>

    Fix whitespace
---
 clojure-mode.el | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/clojure-mode.el b/clojure-mode.el
index 044418216b..0ed97f1f7f 100644
--- a/clojure-mode.el
+++ b/clojure-mode.el
@@ -536,24 +536,24 @@ replacement for `cljr-expand-let`."
       (beginning-of-defun)
       ;; Make sure we are really inside the defun found, not after it.
       (when (and (looking-at "\\s(")
-                (progn (end-of-defun)
-                       (< location (point)))
-                (progn (forward-sexp -1)
-                       (>= location (point))))
-       (if (looking-at "\\s(")
-           (forward-char 1))
-       ;; Skip the defining construct name, e.g. "defn" or "def".
-       (forward-sexp 1)
-       ;; The second element is usually a symbol being defined.  If it
-       ;; is not, use the first symbol in it.
-       (skip-chars-forward " \t\n'(")
+                 (progn (end-of-defun)
+                        (< location (point)))
+                 (progn (forward-sexp -1)
+                        (>= location (point))))
+        (if (looking-at "\\s(")
+            (forward-char 1))
+        ;; Skip the defining construct name, e.g. "defn" or "def".
+        (forward-sexp 1)
+        ;; The second element is usually a symbol being defined.  If it
+        ;; is not, use the first symbol in it.
+        (skip-chars-forward " \t\n'(")
         ;; Skip metadata
         (while (looking-at "\\^")
           (forward-sexp 1)
           (skip-chars-forward " \t\n'("))
-       (buffer-substring-no-properties (point)
-                                       (progn (forward-sexp 1)
-                                              (point)))))))
+        (buffer-substring-no-properties (point)
+                                        (progn (forward-sexp 1)
+                                               (point)))))))
 
 (defun clojure-mode-variables ()
   "Set up initial buffer-local variables for Clojure mode."



reply via email to

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