From: Glenn Morris <rgm@gnu.org>
Date: Fri, 12 Oct 2007 06:33:19 +0000 (+0000)
Subject: (reftex-erase-all-selection-and-index-buffers)
X-Git-Tag: emacs-pretest-23.0.90~10400
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b33469eb587a46c7d8d16e12ed060e2af27b37c;p=emacs.git

(reftex-erase-all-selection-and-index-buffers)
(reftex-access-parse-file): Use mapc rather than mapcar.
---

diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el
index 375bd2d2652..519faded548 100644
--- a/lisp/textmodes/reftex.el
+++ b/lisp/textmodes/reftex.el
@@ -859,12 +859,12 @@ This enforces rescanning the buffer on next use."
 
 (defun reftex-erase-all-selection-and-index-buffers ()
   ;; Remove all selection buffers associated with current document.
-  (mapcar 
+  (mapc
    (lambda (type)
      (reftex-erase-buffer (reftex-make-selection-buffer-name type)))
    reftex-typekey-list)
   ;; Kill all index buffers
-  (mapcar 
+  (mapc
    (lambda (tag)
      (reftex-kill-buffer (reftex-make-index-buffer-name tag)))
    (cdr (assoc 'index-tags (symbol-value reftex-docstruct-symbol)))))
@@ -1339,7 +1339,7 @@ Valid actions are: readable, restore, read, kill, write."
                               (user-login-name) (user-full-name)))
               (insert "(set reftex-docstruct-symbol '(\n\n")
               (let ((standard-output (current-buffer)))
-                (mapcar
+                (mapc
                  (lambda (x)
                    (cond ((eq (car x) 'toc)
                           ;; A toc entry. Do not save the marker.