From: Glenn Morris <rgm@gnu.org>
Date: Fri, 12 Oct 2007 06:36:27 +0000 (+0000)
Subject: (reftex-select-unmark): Use mapc rather than mapcar.
X-Git-Tag: emacs-pretest-23.0.90~10398
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=91529f3d15ee48227884b0e9be93b485765b0828;p=emacs.git

(reftex-select-unmark): Use mapc rather than mapcar.
---

diff --git a/lisp/textmodes/reftex-sel.el b/lisp/textmodes/reftex-sel.el
index 4a9ad14510d..4551068af90 100644
--- a/lisp/textmodes/reftex-sel.el
+++ b/lisp/textmodes/reftex-sel.el
@@ -643,12 +643,12 @@ Useful for large TOC's."
     (and ovl (reftex-delete-overlay ovl))
     (setq reftex-select-marked (delq cell reftex-select-marked))
     (setq cnt (1+ (length reftex-select-marked)))
-    (mapcar (lambda (c)
-              (setq sep (nth 2 c))
-              (reftex-overlay-put (nth 1 c) 'before-string
-                                  (if sep
-                                      (format "*%c%d* " sep (decf cnt))
-                                    (format "*%d*  " (decf cnt)))))
+    (mapc (lambda (c)
+            (setq sep (nth 2 c))
+            (reftex-overlay-put (nth 1 c) 'before-string
+                                (if sep
+                                    (format "*%c%d* " sep (decf cnt))
+                                  (format "*%d*  " (decf cnt)))))
             reftex-select-marked)
     (message "Entry no longer marked")))