diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2013-04-03 21:59:09 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-04-03 21:59:09 -0400 |
| commit | 2575da508408a178f64c9bcdd51e2e0502419a17 (patch) | |
| tree | d79c0dddc18df7522e77cae826a3930b908db04c /lisp/bookmark.el | |
| parent | 397703b4ab20d96ff63c1dc25ffcbe4e76a71ae8 (diff) | |
| download | emacs-2575da508408a178f64c9bcdd51e2e0502419a17.tar.gz | |
* lisp/bookmark.el: Fix deletion of bookmarks.
(bookmark-bmenu-list): Don't toggle filenames if alist is empty.
(bookmark-bmenu-execute-deletions): Only skip first line if it's
the header.
(bookmark-exit-hook-internal): Save even if list is empty.
Fixes: debbugs:13972
Diffstat (limited to 'lisp/bookmark.el')
| -rw-r--r-- | lisp/bookmark.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 47e13799625..c1d8a4a0a5e 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -1582,8 +1582,8 @@ deletion, or > if it is flagged for displaying." (if bookmark-bmenu-use-header-line (bookmark-bmenu-set-header) (forward-line bookmark-bmenu-inline-header-height)) - (if bookmark-bmenu-toggle-filenames - (bookmark-bmenu-toggle-filenames t)))) + (when (and bookmark-alist bookmark-bmenu-toggle-filenames) + (bookmark-bmenu-toggle-filenames t)))) ;;;###autoload (defalias 'list-bookmarks 'bookmark-bmenu-list) @@ -1998,7 +1998,8 @@ To carry out the deletions that you've marked, use \\<bookmark-bmenu-mode-map>\\ (progn (end-of-line) (point)))))) (o-col (current-column))) (goto-char (point-min)) - (forward-line 1) + (unless bookmark-bmenu-use-header-line + (forward-line 1)) (while (re-search-forward "^D" (point-max) t) (bookmark-delete (bookmark-bmenu-bookmark) t)) ; pass BATCH arg (bookmark-bmenu-list) @@ -2186,8 +2187,7 @@ strings returned are not." "Save bookmark state, if necessary, at Emacs exit time. This also runs `bookmark-exit-hook'." (run-hooks 'bookmark-exit-hook) - (and bookmark-alist - (bookmark-time-to-save-p t) + (and (bookmark-time-to-save-p t) (bookmark-save))) (unless noninteractive |