diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-03 21:23:40 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-03 21:23:40 +0200 |
| commit | 5206596ea7b26e2e9705e4c94184f6d22687c385 (patch) | |
| tree | e45f62e8d0daf1411ebd732f8fa4601f6eeb3f3b /lisp/sort.el | |
| parent | 59353ec7b579213de3c70950d5d938b7540ce72f (diff) | |
| download | emacs-5206596ea7b26e2e9705e4c94184f6d22687c385.tar.gz emacs-5206596ea7b26e2e9705e4c94184f6d22687c385.tar.bz2 emacs-5206596ea7b26e2e9705e4c94184f6d22687c385.zip | |
Make sorting not change buffer modification status always
* lisp/sort.el (sort-subr): Don't mark buffer modified if the
sorting didn't change anything (bug#4587).
Diffstat (limited to 'lisp/sort.el')
| -rw-r--r-- | lisp/sort.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/sort.el b/lisp/sort.el index 90eee01caf4..d04f075abd1 100644 --- a/lisp/sort.el +++ b/lisp/sort.el @@ -29,6 +29,8 @@ ;;; Code: +(eval-when-compile (require 'subr-x)) + (defgroup sort nil "Commands to sort text in an Emacs buffer." :group 'data) @@ -111,7 +113,8 @@ as start and end positions), and with `string<' otherwise." (lambda (a b) (string< (car a) (car b))))))) (if reverse (setq sort-lists (nreverse sort-lists))) (if messages (message "Reordering buffer...")) - (sort-reorder-buffer sort-lists old))) + (with-buffer-unmodified-if-unchanged + (sort-reorder-buffer sort-lists old)))) (if messages (message "Reordering buffer... Done")))) nil) |