Skip to content

Commit 1b41102

Browse files
committed
Fix a bug in ns-sort with comments
1 parent c09152a commit 1b41102

File tree

1 file changed

+6
-2
lines changed

1 file changed

+6
-2
lines changed

clojure-mode.el

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1484,13 +1484,17 @@ content) are considered part of the preceding sexp."
14841484
;; Move to start of ns name.
14851485
(lambda ()
14861486
(comment-forward)
1487-
(skip-chars-forward "[(")
1487+
(skip-chars-forward "[:blank:]\n\r[(")
14881488
(clojure-forward-logical-sexp)
14891489
(forward-sexp -1)
14901490
nil)
14911491
;; Move to end of ns name.
14921492
(lambda ()
1493-
(clojure-forward-logical-sexp)))))
1493+
(clojure-forward-logical-sexp)))
1494+
(goto-char (point-max))
1495+
;; Does the last line now end in a comment?
1496+
(when (nth 4 (parse-partial-sexp (point-min) (point)))
1497+
(insert "\n"))))
14941498

14951499
(defun clojure-sort-ns ()
14961500
"Internally sort each sexp inside the ns form."

0 commit comments

Comments
 (0)