Mercurial > emacs
comparison lisp/textmodes/reftex-ref.el @ 85197:861bd8efa4d6
(reftex-offer-label-menu): Use mapc rather than mapcar.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 12 Oct 2007 06:37:58 +0000 |
| parents | b6d25790aab2 |
| children | 107ccd98fa12 d38543a1c0f9 |
comparison
equal
deleted
inserted
replaced
| 85196:5aad543561c0 | 85197:861bd8efa4d6 |
|---|---|
| 663 (throw 'exit t)) | 663 (throw 'exit t)) |
| 664 (t (error "This should not happen (reftex-offer-label-menu)")))))) | 664 (t (error "This should not happen (reftex-offer-label-menu)")))))) |
| 665 (save-excursion | 665 (save-excursion |
| 666 (while reftex-buffers-with-changed-invisibility | 666 (while reftex-buffers-with-changed-invisibility |
| 667 (set-buffer (car (car reftex-buffers-with-changed-invisibility))) | 667 (set-buffer (car (car reftex-buffers-with-changed-invisibility))) |
| 668 (setq buffer-invisibility-spec | 668 (setq buffer-invisibility-spec |
| 669 (cdr (pop reftex-buffers-with-changed-invisibility))))) | 669 (cdr (pop reftex-buffers-with-changed-invisibility))))) |
| 670 (mapcar (lambda (buf) (and (buffer-live-p buf) (bury-buffer buf))) | 670 (mapc (lambda (buf) (and (buffer-live-p buf) (bury-buffer buf))) |
| 671 selection-buffers) | 671 selection-buffers) |
| 672 (reftex-kill-temporary-buffers)) | 672 (reftex-kill-temporary-buffers)) |
| 673 ;; Add the prefixes, put together the relevant information in the form | 673 ;; Add the prefixes, put together the relevant information in the form |
| 674 ;; (LABEL TYPEKEY SEPARATOR) and return a list of those. | 674 ;; (LABEL TYPEKEY SEPARATOR) and return a list of those. |
| 675 (mapcar (lambda (x) | 675 (mapcar (lambda (x) |
| 676 (if (listp x) | 676 (if (listp x) |