Trailing whitespace deleted.

[bpt/emacs.git] / lisp / textmodes / reftex-dcr.el

diff --git a/lisp/textmodes/reftex-dcr.el b/lisp/textmodes/reftex-dcr.el
index 6f95774..34fd334 100644 (file)
--- a/lisp/textmodes/reftex-dcr.el
+++ b/lisp/textmodes/reftex-dcr.el
@@ -86,7 +86,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
                (format reftex-find-index-entry-regexp-format
                        (regexp-quote key))
                3 nil nil)))
-     (t 
+     (t
       (reftex-access-scan-info arg)
       (catch 'exit
        (let ((list reftex-view-crossref-extra)
@@ -96,14 +96,14 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
                  action (nth 1 entry)
                  group (nth 2 entry))
            (when (string-match mre macro)
-             (setq dw (reftex-view-regexp-match 
+             (setq dw (reftex-view-regexp-match
                        (format action key) group nil nil))
              (throw 'exit t))))
        (error "Not on a crossref macro argument"))))
     (if (and (eq arg 2) (windowp dw)) (select-window dw))))
-     
+
 (defun reftex-view-cr-cite (arg key how)
-  ;; View crossreference of a ref cite.  HOW can have the values 
+  ;; View crossreference of a ref cite.  HOW can have the values
   ;; nil:         Show in another window.
   ;; echo:        Show one-line info in echo area.
   ;; tmp-window:  Show in small window and arrange for window to disappear.
@@ -113,7 +113,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
 
   (if (eq how 'tmp-window)
       ;; Remember the window configuration
-      (put 'reftex-auto-view-crossref 'last-window-conf 
+      (put 'reftex-auto-view-crossref 'last-window-conf
           (current-window-configuration)))
 
   (let (files size item (pos (point)) (win (selected-window)) pop-win
@@ -129,7 +129,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
       (setq item t
            files (reftex-uniquify
                   (mapcar 'cdr
-                          (reftex-all-assq 
+                          (reftex-all-assq
                            'thebib (symbol-value reftex-docstruct-symbol))))))
      (reftex-default-bibliography
       (setq item nil
@@ -168,17 +168,17 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
        (select-window pop-win)))))
 
 (defun reftex-view-cr-ref (arg label how)
-  ;; View crossreference of a ref macro.  HOW can have the values 
+  ;; View crossreference of a ref macro.  HOW can have the values
   ;; nil:         Show in another window.
   ;; echo:        Show one-line info in echo area.
   ;; tmp-window:  Show in small window and arrange for window to disappear.
 
   ;; Ensure access to scanning info
   (reftex-access-scan-info (or arg current-prefix-arg))
-  
+
   (if (eq how 'tmp-window)
       ;; Remember the window configuration
-      (put 'reftex-auto-view-crossref 'last-window-conf 
+      (put 'reftex-auto-view-crossref 'last-window-conf
           (current-window-configuration)))
 
   (let* ((xr-data (assoc 'xr (symbol-value reftex-docstruct-symbol)))
@@ -190,14 +190,14 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
        ;; Label is defined in external document
        (save-excursion
          (save-match-data
-           (set-buffer 
+           (set-buffer
             (or (reftex-get-file-buffer-force
                  (cdr (assoc (match-string 1 label) (nth 1
                                                          xr-data))))
                 (error "Problem with external label %s" label))))
          (setq label (substring label (match-end 1)))
          (reftex-access-scan-info)
-         (setq entry 
+         (setq entry
                (assoc label (symbol-value reftex-docstruct-symbol)))))
     (if (eq how 'echo)
        ;; Display in echo area
@@ -243,7 +243,7 @@ With argument, actually select the window showing the cross reference."
                                 reftex-mouse-view-crossref)))
        ;; Quick precheck if this might be a relevant spot
        ;; FIXME: Can fail with backslash in comment
-       (save-excursion  
+       (save-excursion
         (search-backward "\\" nil t)
         (looking-at "\\\\[a-zA-Z]*\\(cite\\|ref\\|bibentry\\)"))
 
@@ -261,7 +261,7 @@ With argument, actually select the window showing the cross reference."
   (set-window-configuration (get 'reftex-auto-view-crossref 'last-window-conf))
   (put 'reftex-auto-view-crossref 'last-window-conf nil)
   (remove-hook 'pre-command-hook 'reftex-restore-window-conf))
-                 
+
 (defun reftex-echo-ref (label entry docstruct)
   ;; Display crossref info in echo area.
   (cond
@@ -292,14 +292,14 @@ With argument, actually select the window showing the cross reference."
       (unless reftex-revisit-to-echo
        (setq files (reftex-visited-files files)))
 
-      (setq entry 
+      (setq entry
            (condition-case nil
                (save-excursion
                  (reftex-pop-to-bibtex-entry key files nil nil item t))
              (error
               (if (and files (= (length all-files) (length files)))
                   (message "cite: no such database entry: %s" key)
-                (message (substitute-command-keys 
+                (message (substitute-command-keys
                           (format reftex-no-info-message "cite"))))
               nil)))
       (when entry
@@ -337,7 +337,7 @@ will display info in the echo area."
          (if (featurep 'xemacs)
              (if reftex-use-itimer-in-xemacs
                  (start-itimer "RefTeX Idle Timer"
-                               'reftex-view-crossref-when-idle 
+                               'reftex-view-crossref-when-idle
                                reftex-idle-time reftex-idle-time t)
                (add-hook 'post-command-hook 'reftex-start-itimer-once)
                t)
@@ -352,7 +352,7 @@ will display info in the echo area."
        (not (itimer-live-p reftex-auto-view-crossref-timer))
        (setq reftex-auto-view-crossref-timer
              (start-itimer "RefTeX Idle Timer"
-                           'reftex-view-crossref-when-idle 
+                           'reftex-view-crossref-when-idle
                            reftex-idle-time nil t))))
 
 (defun reftex-view-crossref-from-bibtex (&optional arg)
@@ -362,7 +362,7 @@ prompts upon first use for a buffer in RefTeX mode.  To reset this
 link to a document, call the function with with a prefix arg.
 Calling this function several times find successive citation locations."
   (interactive "P")
-  (when arg 
+  (when arg
     ;; Break connection to reference buffer
     (put 'reftex-bibtex-view-cite-locations :ref-buffer nil))
   (let ((ref-buffer (get 'reftex-bibtex-view-cite-locations :ref-buffer)))
@@ -370,10 +370,10 @@ Calling this function several times find successive citation locations."
     (unless ref-buffer
       (setq ref-buffer
            (save-excursion
-             (completing-read 
+             (completing-read
               "Reference buffer: "
               (delq nil
-                    (mapcar 
+                    (mapcar
                      (lambda (b)
                        (set-buffer b)
                        (if reftex-mode (list (buffer-name b)) nil))