Mercurial > emacs
diff lisp/bookmark.el @ 105920:0a019b48e945
* bookmark.el (bookmark-completing-read): Sort bookmark names if
bookmark-sort-flag is non-nil (Bug#4653).
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sun, 08 Nov 2009 23:01:45 +0000 |
parents | d5f02d259103 |
children | 858a083ed2f0 |
line wrap: on
line diff
--- a/lisp/bookmark.el Sun Nov 08 22:53:30 2009 +0000 +++ b/lisp/bookmark.el Sun Nov 08 23:01:45 2009 +0000 @@ -459,7 +459,11 @@ the empty string." (bookmark-maybe-load-default-file) ; paranoia (if (listp last-nonmenu-event) - (bookmark-menu-popup-paned-menu t prompt (bookmark-all-names)) + (bookmark-menu-popup-paned-menu t prompt + (if bookmark-sort-flag + (sort (bookmark-all-names) + 'string-lessp) + (bookmark-all-names))) (let* ((completion-ignore-case bookmark-completion-ignore-case) (default default) (prompt (concat prompt (if default