# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1192170799 0
# Node ID b4b8e47fe18bf93f80b64a35d419faacc57e5335
# Parent  2922a5d23b4ee36c8d9d0bf30f9822460941b18d
(reftex-erase-all-selection-and-index-buffers)
(reftex-access-parse-file): Use mapc rather than mapcar.

diff -r 2922a5d23b4e -r b4b8e47fe18b lisp/textmodes/reftex.el
--- a/lisp/textmodes/reftex.el	Fri Oct 12 06:29:56 2007 +0000
+++ b/lisp/textmodes/reftex.el	Fri Oct 12 06:33:19 2007 +0000
@@ -859,12 +859,12 @@
 
 (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 @@
                               (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.