diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2007-09-25 10:43:39 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2007-09-25 10:43:39 +0000 |
commit | 4a8ed004967087c9f0e1835cc247871a391f7018 (patch) | |
tree | 95d77dd70a4abc75cff4dab42e1524ad08b2db2c /lisp/bookmark.el | |
parent | 52d0394245c99feb75af2cba9ebec2f30518aa72 (diff) | |
download | emacs-4a8ed004967087c9f0e1835cc247871a391f7018.tar.gz |
(bookmark-bmenu-list, bookmark-show-all-annotations):
Use `mapc' rather than `mapcar'.
Diffstat (limited to 'lisp/bookmark.el')
-rw-r--r-- | lisp/bookmark.el | 4 |
1 files changed, 2 insertions, 2 deletions
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))) |