[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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/clojure-mode 414157c3e5: Fix whitespace,
ELPA Syncer <=