# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1257721305 0
# Node ID 0a019b48e945e78336398013a0ad9e823b0512dd
# Parent  32e202ebbfda3b96175a6550756b2f8a936aa4d0
* bookmark.el (bookmark-completing-read): Sort bookmark names if
bookmark-sort-flag is non-nil (Bug#4653).

diff -r 32e202ebbfda -r 0a019b48e945 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Nov 08 22:53:30 2009 +0000
+++ b/lisp/ChangeLog	Sun Nov 08 23:01:45 2009 +0000
@@ -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
diff -r 32e202ebbfda -r 0a019b48e945 lisp/bookmark.el
--- 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