From 4a8ed004967087c9f0e1835cc247871a391f7018 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 25 Sep 2007 10:43:39 +0000 Subject: (bookmark-bmenu-list, bookmark-show-all-annotations): Use `mapc' rather than `mapcar'. --- lisp/bookmark.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/bookmark.el') 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))) -- cgit v1.2.1