Mercurial > emacs

changeset 85198:dae14770f516

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove some trailing whitespace. (reftex-do-citation) (reftex-insert-bib-matches): Use mapc rather than mapcar.
author Glenn Morris <rgm@gnu.org>
date Fri, 12 Oct 2007 06:39:21 +0000
parents 861bd8efa4d6
children d24cbe9e2e2d
files lisp/textmodes/reftex-cite.el
diffstat 1 files changed, 8 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/reftex-cite.el	Fri Oct 12 06:37:58 2007 +0000
+++ b/lisp/textmodes/reftex-cite.el	Fri Oct 12 06:39:21 2007 +0000
@@ -702,26 +702,26 @@
         (delete-char 1))
 
       ;; Tell AUCTeX
-      (when (and reftex-mode 
+      (when (and reftex-mode
                  (fboundp 'LaTeX-add-bibitems)
                  reftex-plug-into-AUCTeX)
         (apply 'LaTeX-add-bibitems (mapcar 'car selected-entries)))
-      
+
       ;; Produce the cite-view strings
       (when (and reftex-mode reftex-cache-cite-echo cite-view)
-        (mapcar (lambda (entry) 
-                  (reftex-make-cite-echo-string entry docstruct-symbol))
-                selected-entries))
+        (mapc (lambda (entry)
+                (reftex-make-cite-echo-string entry docstruct-symbol))
+              selected-entries))
 
       (message ""))
 
     (set-marker reftex-select-return-marker nil)
     (reftex-kill-buffer "*RefTeX Select*")
-    
+
     ;; Check if the prefix arg was numeric, and call recursively
     (when (integerp arg)
       (if (> arg 1)
-          (progn      
+          (progn
             (skip-chars-backward "}")
             (decf arg)
             (reftex-do-citation arg))
@@ -954,7 +954,7 @@
              reftex-mouse-selected-face
            nil))
         tmp len)
-    (mapcar 
+    (mapc
      (lambda (x)
        (setq tmp (cdr (assoc "&formatted" x))
              len (length tmp))