mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

(reftex-erase-all-selection-and-index-buffers)

Browse Source 
(reftex-access-parse-file): Use mapc rather than mapcar.
This commit is contained in:
Glenn Morris 2007-10-12 06:33:19 +00:00
parent f8fd7ed3a2
commit 4b33469eb5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/textmodes/reftex.el
View File

@ -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.