+2007-07-17 Thien-Thi Nguyen <ttn@gnuvola.org>
+
+ * bookmark.el (bookmark-show-all-annotations):
+ Make sure each inserted annotation ends with newline.
+
+ (bookmark-maybe-sort-alist): Don't modify
+ bookmark-alist. Instead, if not sorting, simply return it.
+ (bookmark-bmenu-list): Call bookmark-maybe-sort-alist
+ for its return value, not for its side effect.
+
2007-07-17 Dan Nicolaescu <dann@ics.uci.edu>
* vc.el: Add more info about the vc-registered function.
;;Return the bookmark-alist for display. If the bookmark-sort-flag
;;is non-nil, then return a sorted copy of the alist.
(if bookmark-sort-flag
- (setq bookmark-alist
- (sort (copy-alist bookmark-alist)
- (function
- (lambda (x y) (string-lessp (car x) (car y))))))))
+ (sort (copy-alist bookmark-alist)
+ (function
+ (lambda (x y) (string-lessp (car x) (car y)))))
+ bookmark-alist))
(defvar bookmark-after-jump-hook nil
(insert "% Bookmark\n- --------\n")
(add-text-properties (point-min) (point)
'(font-lock-face bookmark-menu-heading))
- (bookmark-maybe-sort-alist)
(mapcar
(lambda (full-record)
;; if a bookmark has an annotation, prepend a "*"
help-echo "mouse-2: go to this bookmark in other window")))
(insert "\n")
)))
- bookmark-alist))
+ (bookmark-maybe-sort-alist)))
(goto-char (point-min))
(forward-line 2)
(bookmark-bmenu-mode)