diff options
| author | Case Duckworth | 2021-09-13 19:52:49 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-09-13 19:52:49 -0500 |
| commit | 3d46a93710267148da97b75756d6673993bf5467 (patch) | |
| tree | 02d32bc43c66fb68af1753883091448ea75b13d9 | |
| parent | Configure ediff (diff) | |
| download | emacs-3d46a93710267148da97b75756d6673993bf5467.tar.gz emacs-3d46a93710267148da97b75756d6673993bf5467.zip | |
Improve sort-setq
| -rw-r--r-- | lisp/acdw.el | 2 |
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))))) |