@@ -536,24 +536,24 @@ replacement for `cljr-expand-let`."
536536 (beginning-of-defun )
537537 ; ; Make sure we are really inside the defun found, not after it.
538538 (when (and (looking-at " \\ s(" )
539- (progn (end-of-defun )
540- (< location (point )))
541- (progn (forward-sexp -1 )
542- (>= location (point ))))
543- (if (looking-at " \\ s(" )
544- (forward-char 1 ))
545- ; ; Skip the defining construct name, e.g. "defn" or "def".
546- (forward-sexp 1 )
547- ; ; The second element is usually a symbol being defined. If it
548- ; ; is not, use the first symbol in it.
549- (skip-chars-forward " \t\n '(" )
539+ (progn (end-of-defun )
540+ (< location (point )))
541+ (progn (forward-sexp -1 )
542+ (>= location (point ))))
543+ (if (looking-at " \\ s(" )
544+ (forward-char 1 ))
545+ ; ; Skip the defining construct name, e.g. "defn" or "def".
546+ (forward-sexp 1 )
547+ ; ; The second element is usually a symbol being defined. If it
548+ ; ; is not, use the first symbol in it.
549+ (skip-chars-forward " \t\n '(" )
550550 ; ; Skip metadata
551551 (while (looking-at " \\ ^" )
552552 (forward-sexp 1 )
553553 (skip-chars-forward " \t\n '(" ))
554- (buffer-substring-no-properties (point )
555- (progn (forward-sexp 1 )
556- (point )))))))
554+ (buffer-substring-no-properties (point )
555+ (progn (forward-sexp 1 )
556+ (point )))))))
557557
558558(defun clojure-mode-variables ()
559559 " Set up initial buffer-local variables for Clojure mode."
0 commit comments