From: Chong Yidong Date: Sun, 8 Nov 2009 23:01:45 +0000 (+0000) Subject: * bookmark.el (bookmark-completing-read): Sort bookmark names if X-Git-Tag: emacs-pretest-23.1.90~516 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fd4489f0e4fe65b39921ffbc27f3e19da68515c6;p=emacs.git * bookmark.el (bookmark-completing-read): Sort bookmark names if bookmark-sort-flag is non-nil (Bug#4653). --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 301bcedc0a1..42c2e613716 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-11-08 Markus Rost + + * bookmark.el (bookmark-completing-read): Sort bookmark names if + bookmark-sort-flag is non-nil (Bug#4653). + 2009-11-08 Chong Yidong * cedet/semantic/ctxt.el (semantic-get-local-variables): Disable diff --git a/lisp/bookmark.el b/lisp/bookmark.el index f1a4409cc85..a3c315acbc2 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -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