diff options
| author | Manuel Giraud <manuel@ledu-giraud.fr> | 2022-03-03 17:32:13 +0100 |
|---|---|---|
| committer | Karl Fogel <kfogel@red-bean.com> | 2022-03-06 23:14:30 -0600 |
| commit | 29157a9f88c957f26f29284a71dad63d70d40cfd (patch) | |
| tree | 58f4c27dea692376ef9d8cb62f51efc6c640f918 /lisp/bookmark.el | |
| parent | 03b07fd62e831df2425676005bd962fef81ffc1d (diff) | |
| download | emacs-29157a9f88c957f26f29284a71dad63d70d40cfd.tar.gz | |
Fix bookmark-bmenu-list sorting.
Do not sort bookmarks in `bookmark-bmenu-list' if `bookmark-sort-flag'
is nil.
Also, make the default order of bookmark-bmenu-list be the LIFO order
defined in `bookmark-sort-flag's documentation.
Diffstat (limited to 'lisp/bookmark.el')
| -rw-r--r-- | lisp/bookmark.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 27517318171..80fb1cdfc78 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -1819,7 +1819,7 @@ Don't affect the buffer ring order." (list location))]) entries))) (tabulated-list-init-header) - (setq tabulated-list-entries entries)) + (setq tabulated-list-entries (reverse entries))) (tabulated-list-print t)) ;;;###autoload @@ -1907,7 +1907,8 @@ Bookmark names preceded by a \"*\" have annotations. ,@(if bookmark-bmenu-toggle-filenames '(("File" 0 bookmark-bmenu--file-predicate)))]) (setq tabulated-list-padding bookmark-bmenu-marks-width) - (setq tabulated-list-sort-key '("Bookmark" . nil)) + (when bookmark-sort-flag + (setq tabulated-list-sort-key '("Bookmark" . nil))) (add-hook 'tabulated-list-revert-hook #'bookmark-bmenu--revert nil t)' (setq revert-buffer-function 'bookmark-bmenu--revert) (tabulated-list-init-header)) |