From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 25 Sep 2007 10:43:39 +0000 (+0000)
Subject: (bookmark-bmenu-list, bookmark-show-all-annotations):
X-Git-Tag: emacs-pretest-23.0.90~10682
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=768656652ff7f4055700ed9f23c4b4a9e64176ba;p=emacs.git

(bookmark-bmenu-list, bookmark-show-all-annotations):
Use `mapc' rather than `mapcar'.
---

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 47a1d651598..184f9de518c 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -1585,7 +1585,7 @@ deletion, or > if it is flagged for displaying."
     (insert "% Bookmark\n- --------\n")
     (add-text-properties (point-min) (point)
 			 '(font-lock-face bookmark-menu-heading))
-    (mapcar
+    (mapc
      (lambda (full-record)
        ;; if a bookmark has an annotation, prepend a "*"
        ;; in the list of bookmarks.
@@ -1802,7 +1802,7 @@ if an annotation exists."
   (let ((old-buf (current-buffer)))
     (pop-to-buffer (get-buffer-create "*Bookmark Annotation*") t)
     (delete-region (point-min) (point-max))
-    (mapcar
+    (mapc
      (lambda (full-record)
        (let* ((name (bookmark-name-from-full-record full-record))
               (ann  (bookmark-get-annotation name)))