mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 18:41:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Glenn Morris 2007-10-12 06:36:27 +00:00
parent 17d10974d8
commit 91529f3d15
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/textmodes/reftex-sel.el
View file

@ -643,12 +643,12 @@ Useful for large TOC's."
(and ovl (reftex-delete-overlay ovl)) (and ovl (reftex-delete-overlay ovl))
(setq reftex-select-marked (delq cell reftex-select-marked)) (setq reftex-select-marked (delq cell reftex-select-marked))
(setq cnt (1+ (length reftex-select-marked))) (setq cnt (1+ (length reftex-select-marked)))
(mapcar (lambda (c) (mapc (lambda (c)
(setq sep (nth 2 c)) (setq sep (nth 2 c))
(reftex-overlay-put (nth 1 c) 'before-string (reftex-overlay-put (nth 1 c) 'before-string
(if sep (if sep
(format "*%c%d* " sep (decf cnt)) (format "*%c%d* " sep (decf cnt))
(format "*%d* " (decf cnt))))) (format "*%d* " (decf cnt)))))
reftex-select-marked) reftex-select-marked)
(message "Entry no longer marked"))) (message "Entry no longer marked")))