summaryrefslogtreecommitdiff
path: root/lisp/textmodes/reftex-dcr.el
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2003-02-04 13:30:45 +0000
committerJuanma Barranquero <lekktu@gmail.com>2003-02-04 13:30:45 +0000
commitdb95369be096960245dd38678f68464627698678 (patch)
tree13e3aa7b917b87ec343a8b0d053a9c3cb06c05d0 /lisp/textmodes/reftex-dcr.el
parenta1506d2977a8c2eb982ad0b59416009cdfaa6f51 (diff)
downloademacs-db95369be096960245dd38678f68464627698678.tar.gz
Trailing whitespace deleted.
Diffstat (limited to 'lisp/textmodes/reftex-dcr.el')
-rw-r--r--lisp/textmodes/reftex-dcr.el40
1 files changed, 20 insertions, 20 deletions
diff --git a/lisp/textmodes/reftex-dcr.el b/lisp/textmodes/reftex-dcr.el
index 6f9577473d4..34fd334987c 100644
--- 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))