Skip to content

Commit 62b59be

Browse files
author
Vadim Rodionov
committed
Add comment explaining code that moves point to the beginning of next sexp when encounter metadata
1 parent 4fbeef0 commit 62b59be

File tree

1 file changed

+1
-0
lines changed

1 file changed

+1
-0
lines changed

Diff for: clojure-mode.el

+1
Original file line numberDiff line numberDiff line change
@@ -755,6 +755,7 @@ Called by `imenu--generic-function'."
755755
(backward-sexp)))
756756
(cl-destructuring-bind (def-beg . def-end) (bounds-of-thing-at-point 'sexp)
757757
(when (char-equal ?^ (char-after def-beg))
758+
;; move to the beginning of next sexp
758759
(progn (forward-sexp) (backward-sexp)))
759760
(when (or (not (char-equal ?^ (char-after (point))))
760761
(and (char-equal ?^ (char-after (point))) (= def-beg (point))))

0 commit comments

Comments
 (0)