From fd4489f0e4fe65b39921ffbc27f3e19da68515c6 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 8 Nov 2009 23:01:45 +0000 Subject: [PATCH] * bookmark.el (bookmark-completing-read): Sort bookmark names if bookmark-sort-flag is non-nil (Bug#4653). --- lisp/ChangeLog | 5 +++++ lisp/bookmark.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) 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 -- 2.11.4.GIT