summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-09-13 19:52:49 -0500
committerCase Duckworth2021-09-13 19:52:49 -0500
commit3d46a93710267148da97b75756d6673993bf5467 (patch)
tree02d32bc43c66fb68af1753883091448ea75b13d9
parentConfigure ediff (diff)
downloademacs-3d46a93710267148da97b75756d6673993bf5467.tar.gz
emacs-3d46a93710267148da97b75756d6673993bf5467.zip
Improve sort-setq
-rw-r--r--lisp/acdw.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el index d789a74..91381da 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -564,7 +564,7 @@ It's called 'require-private' for historical reasons."
564 (sort-beg (progn (beginning-of-defun) 564 (sort-beg (progn (beginning-of-defun)
565 (re-search-forward "[ \\t]*(" (point-at-eol)) 565 (re-search-forward "[ \\t]*(" (point-at-eol))
566 (forward-sexp) 566 (forward-sexp)
567 (re-search-forward "\\<" (point-at-eol)) 567 (re-search-forward "\\_<" (point-at-eol))
568 (point-marker)))) 568 (point-marker))))
569 (narrow-to-region (1- sort-beg) (1+ sort-end)) 569 (narrow-to-region (1- sort-beg) (1+ sort-end))
570 (sort-subr nil #'sort-setq-next-record #'sort-setq-end-record))))) 570 (sort-subr nil #'sort-setq-next-record #'sort-setq-end-record)))))