We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 3453cd2 commit 74550a9Copy full SHA for 74550a9
clojure-mode.el
@@ -2029,7 +2029,13 @@ content) are considered part of the preceding sexp."
2029
(save-restriction
2030
(narrow-to-region (point) (save-excursion
2031
(up-list)
2032
- (1- (point))))
+ ;; Ignore any comments in the end before sorting
2033
+ (backward-char)
2034
+ (forward-sexp -1)
2035
+ (clojure-forward-logical-sexp)
2036
+ (unless (looking-at-p ")")
2037
+ (search-forward-regexp "$"))
2038
+ (point)))
2039
(skip-chars-forward "\r\n[:blank:]")
2040
(sort-subr nil
2041
(lambda () (skip-chars-forward "\r\n[:blank:]"))
0 commit comments