Improve sort-setq

2021-09-13 19:52:49 -05:00 · 2021-09-13 19:52:49 -05:00 · 3d46a93710
parent b6cc87ca38
commit 3d46a93710
1 changed files with 1 additions and 1 deletions
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@ -564,7 +564,7 @@ It's called 'require-private' for historical reasons."
            (sort-beg (progn (beginning-of-defun)
                             (re-search-forward "[ \\t]*(" (point-at-eol))
                             (forward-sexp)
-                             (re-search-forward "\\<" (point-at-eol))
+                             (re-search-forward "\\_<" (point-at-eol))
                             (point-marker))))
        (narrow-to-region (1- sort-beg) (1+ sort-end))
        (sort-subr nil #'sort-setq-next-record #'sort-setq-end-record)))))