From: Boruch Baum <boruch_baum@gmx.com>
Date: Thu, 26 Mar 2015 01:43:51 +0000 (-0400)
Subject: * lisp/bookmark.el (bookmark-show-all-annotations): Sort them
X-Git-Tag: emacs-25.0.90~2564^2~65
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e0fc97befc105caf8d7519f1e6fd84c67a50a35;p=emacs.git

* lisp/bookmark.el (bookmark-show-all-annotations): Sort them

Fixes: debbugs:20177
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 56c2b4c6f98..37ac1c5f3c8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2015-03-26  Boruch Baum  <boruch_baum@gmx.com>  (tiny change)
+
+	* bookmark.el (bookmark-show-all-annotations): Sort them (bug#20177).
+
 2015-03-25  Dmitry Gutov  <dgutov@yandex.ru>
 
 	* json.el (json-special-chars): Don't treat `/' specially, there's
diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index a49ee7ec8b3..dc8057e6e0d 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -1756,7 +1756,7 @@ if an annotation exists."
   (save-selected-window
     (pop-to-buffer (get-buffer-create "*Bookmark Annotation*") t)
     (delete-region (point-min) (point-max))
-    (dolist (full-record bookmark-alist)
+    (dolist (full-record (bookmark-maybe-sort-alist))
       (let* ((name (bookmark-name-from-full-record full-record))
              (ann  (bookmark-get-annotation full-record)))
         (insert (concat name ":\n"))