From 4b33469eb587a46c7d8d16e12ed060e2af27b37c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 12 Oct 2007 06:33:19 +0000 Subject: [PATCH] (reftex-erase-all-selection-and-index-buffers) (reftex-access-parse-file): Use mapc rather than mapcar. --- lisp/textmodes/reftex.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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. -- 2.39.2