[Emacs-diffs] emacs/lisp ChangeLog bookmark.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/11/08 23:01:49

Modified files:
        lisp           : ChangeLog bookmark.el 

Log message:
        * bookmark.el (bookmark-completing-read): Sort bookmark names if
        bookmark-sort-flag is non-nil (Bug#4653).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16584&r2=1.16585
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/bookmark.el?cvsroot=emacs&r1=1.140&r2=1.141

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16584
retrieving revision 1.16585
diff -u -b -r1.16584 -r1.16585
--- ChangeLog   8 Nov 2009 22:53:30 -0000       1.16584
+++ ChangeLog   8 Nov 2009 23:01:45 -0000       1.16585
@@ -1,3 +1,8 @@
+2009-11-08  Markus Rost <address@hidden>
+
+       * bookmark.el (bookmark-completing-read): Sort bookmark names if
+       bookmark-sort-flag is non-nil (Bug#4653).
+
 2009-11-08  Chong Yidong  <address@hidden>
 
        * cedet/semantic/ctxt.el (semantic-get-local-variables): Disable

Index: bookmark.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/bookmark.el,v
retrieving revision 1.140
retrieving revision 1.141
diff -u -b -r1.140 -r1.141
--- bookmark.el 28 Oct 2009 03:09:14 -0000      1.140
+++ bookmark.el 8 Nov 2009 23:01:49 -0000       1.141
@@ -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