Mercurial > emacs
comparison lisp/bookmark.el @ 84858:e745533cff59
(bookmark-bmenu-list, bookmark-show-all-annotations):
Use `mapc' rather than `mapcar'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 25 Sep 2007 10:43:39 +0000 |
| parents | 68033fec6867 |
| children | 9ac481bc897b 14c4a6aac623 |
comparison
equal
deleted
inserted
replaced
| 84857:03c05458c97e | 84858:e745533cff59 |
|---|---|
| 1583 (let ((inhibit-read-only t)) | 1583 (let ((inhibit-read-only t)) |
| 1584 (erase-buffer) | 1584 (erase-buffer) |
| 1585 (insert "% Bookmark\n- --------\n") | 1585 (insert "% Bookmark\n- --------\n") |
| 1586 (add-text-properties (point-min) (point) | 1586 (add-text-properties (point-min) (point) |
| 1587 '(font-lock-face bookmark-menu-heading)) | 1587 '(font-lock-face bookmark-menu-heading)) |
| 1588 (mapcar | 1588 (mapc |
| 1589 (lambda (full-record) | 1589 (lambda (full-record) |
| 1590 ;; if a bookmark has an annotation, prepend a "*" | 1590 ;; if a bookmark has an annotation, prepend a "*" |
| 1591 ;; in the list of bookmarks. | 1591 ;; in the list of bookmarks. |
| 1592 (let ((annotation (bookmark-get-annotation | 1592 (let ((annotation (bookmark-get-annotation |
| 1593 (bookmark-name-from-full-record full-record)))) | 1593 (bookmark-name-from-full-record full-record)))) |
| 1800 (defun bookmark-show-all-annotations () | 1800 (defun bookmark-show-all-annotations () |
| 1801 "Display the annotations for all bookmarks in a buffer." | 1801 "Display the annotations for all bookmarks in a buffer." |
| 1802 (let ((old-buf (current-buffer))) | 1802 (let ((old-buf (current-buffer))) |
| 1803 (pop-to-buffer (get-buffer-create "*Bookmark Annotation*") t) | 1803 (pop-to-buffer (get-buffer-create "*Bookmark Annotation*") t) |
| 1804 (delete-region (point-min) (point-max)) | 1804 (delete-region (point-min) (point-max)) |
| 1805 (mapcar | 1805 (mapc |
| 1806 (lambda (full-record) | 1806 (lambda (full-record) |
| 1807 (let* ((name (bookmark-name-from-full-record full-record)) | 1807 (let* ((name (bookmark-name-from-full-record full-record)) |
| 1808 (ann (bookmark-get-annotation name))) | 1808 (ann (bookmark-get-annotation name))) |
| 1809 (insert (concat name ":\n")) | 1809 (insert (concat name ":\n")) |
| 1810 (if (and ann (not (string-equal ann ""))) | 1810 (if (and ann (not (string-equal ann ""))) |