@@ -536,24 +536,24 @@ replacement for `cljr-expand-let`."
536
536
(beginning-of-defun )
537
537
; ; Make sure we are really inside the defun found, not after it.
538
538
(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 '(" )
550
550
; ; Skip metadata
551
551
(while (looking-at " \\ ^" )
552
552
(forward-sexp 1 )
553
553
(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 )))))))
557
557
558
558
(defun clojure-mode-variables ()
559
559
" Set up initial buffer-local variables for Clojure mode."
0 commit comments