mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

* bookmark.el (bookmark-completing-read): Sort bookmark names if

Browse Source 
bookmark-sort-flag is non-nil (Bug#4653).
This commit is contained in:
Chong Yidong 2009-11-08 23:01:45 +00:00
parent 9bf7dc8aba
commit fd4489f0e4
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2009-11-08 Markus Rost <rost@math.uni-bielefeld.de>
* bookmark.el (bookmark-completing-read): Sort bookmark names if
bookmark-sort-flag is non-nil (Bug#4653).
2009-11-08 Chong Yidong <cyd@stupidchicken.com>
* cedet/semantic/ctxt.el (semantic-get-local-variables): Disable

6
lisp/bookmark.el
View File

@ -459,7 +459,11 @@ Optional second arg DEFAULT is a string to return if the user enters
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