From: Glenn Morris <rgm@gnu.org>
Date: Fri, 12 Oct 2007 06:37:58 +0000 (+0000)
Subject: (reftex-offer-label-menu): Use mapc rather than mapcar.
X-Git-Tag: emacs-pretest-23.0.90~10397
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fe2ca5ece2678c45c9643f7b062746665980f40d;p=emacs.git

(reftex-offer-label-menu): Use mapc rather than mapcar.
---

diff --git a/lisp/textmodes/reftex-ref.el b/lisp/textmodes/reftex-ref.el
index 3294c4c22a9..c004602757c 100644
--- a/lisp/textmodes/reftex-ref.el
+++ b/lisp/textmodes/reftex-ref.el
@@ -665,10 +665,10 @@ When called with 2 C-u prefix args, disable magic word recognition."
       (save-excursion
         (while reftex-buffers-with-changed-invisibility
           (set-buffer (car (car reftex-buffers-with-changed-invisibility)))
-          (setq buffer-invisibility-spec 
+          (setq buffer-invisibility-spec
                 (cdr (pop reftex-buffers-with-changed-invisibility)))))
-      (mapcar (lambda (buf) (and (buffer-live-p buf) (bury-buffer buf)))
-              selection-buffers)
+      (mapc (lambda (buf) (and (buffer-live-p buf) (bury-buffer buf)))
+            selection-buffers)
       (reftex-kill-temporary-buffers))
     ;; Add the prefixes, put together the relevant information in the form
     ;; (LABEL TYPEKEY SEPARATOR) and return a list of those.