From 414157c3e523e80cc44dca8f86f1853122ee5f6b Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Wed, 28 Sep 2022 08:57:18 +0300 Subject: [PATCH] Fix whitespace --- clojure-mode.el | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/clojure-mode.el b/clojure-mode.el index 04441821..0ed97f1f 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."