diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-10-12 06:36:27 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-10-12 06:36:27 +0000 |
| commit | 91529f3d15ee48227884b0e9be93b485765b0828 (patch) | |
| tree | 89612211feb13b13545f548236df8bcdf2b4985f /lisp/textmodes/reftex-sel.el | |
| parent | 17d10974d8a25ecd345ccfcbbfd25d7e39aa5209 (diff) | |
| download | emacs-91529f3d15ee48227884b0e9be93b485765b0828.tar.gz | |
(reftex-select-unmark): Use mapc rather than mapcar.
Diffstat (limited to 'lisp/textmodes/reftex-sel.el')
| -rw-r--r-- | lisp/textmodes/reftex-sel.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/textmodes/reftex-sel.el b/lisp/textmodes/reftex-sel.el index 4a9ad14510d..4551068af90 100644 --- a/lisp/textmodes/reftex-sel.el +++ b/lisp/textmodes/reftex-sel.el @@ -643,12 +643,12 @@ Useful for large TOC's." (and ovl (reftex-delete-overlay ovl)) (setq reftex-select-marked (delq cell reftex-select-marked)) (setq cnt (1+ (length reftex-select-marked))) - (mapcar (lambda (c) - (setq sep (nth 2 c)) - (reftex-overlay-put (nth 1 c) 'before-string - (if sep - (format "*%c%d* " sep (decf cnt)) - (format "*%d* " (decf cnt))))) + (mapc (lambda (c) + (setq sep (nth 2 c)) + (reftex-overlay-put (nth 1 c) 'before-string + (if sep + (format "*%c%d* " sep (decf cnt)) + (format "*%d* " (decf cnt))))) reftex-select-marked) (message "Entry no longer marked"))) |