mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
Spelling fixes.
This commit is contained in:
Paul Eggert
parent
b6e63cbebd
commit
4c36be58ca
102 changed files with 178 additions and 176 deletions
|
|
@ -59,7 +59,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
|
|||
(error "Not on a crossref macro argument"))
|
||||
|
||||
(setq reftex-call-back-to-this-buffer (current-buffer))
|
||||
|
||||
|
||||
(cond
|
||||
((string-match "\\`\\\\cite\\|cite\\*?\\'\\|bibentry" macro)
|
||||
;; A citation macro: search for bibitems or BibTeX entries
|
||||
|
|
@ -87,7 +87,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)
|
||||
|
|
@ -97,14 +97,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.
|
||||
|
|
@ -114,7 +114,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
|
||||
|
|
@ -130,7 +130,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
|
||||
|
|
@ -169,17 +169,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)))
|
||||
|
|
@ -191,14 +191,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
|
||||
|
|
@ -234,7 +234,7 @@ With argument, actually select the window showing the cross reference."
|
|||
|
||||
(defun reftex-view-crossref-when-idle ()
|
||||
;; Display info about crossref at point in echo area or a window.
|
||||
;; This function was desigend to work with an idle timer.
|
||||
;; This function was designed to work with an idle timer.
|
||||
;; We try to get out of here as quickly as possible if the call is useless.
|
||||
(and reftex-mode
|
||||
;; Make sure message area is free if we need it.
|
||||
|
|
@ -244,7 +244,7 @@ With argument, actually select the window showing the cross reference."
|
|||
reftex-mouse-view-crossref)))
|
||||
;; Quick precheck if this might be a relevant spot
|
||||
;; `reftex-view-crossref' will do a more thorough check.
|
||||
(save-excursion
|
||||
(save-excursion
|
||||
(search-backward "\\" nil t)
|
||||
(looking-at "\\\\[a-zA-Z]*\\(cite\\|ref\\|bibentry\\)"))
|
||||
|
||||
|
|
@ -262,12 +262,12 @@ 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
|
||||
((null docstruct)
|
||||
(message "%s"
|
||||
(message "%s"
|
||||
(substitute-command-keys (format reftex-no-info-message "ref"))))
|
||||
((null entry)
|
||||
(message "ref: unknown label: %s" label))
|
||||
|
|
@ -293,14 +293,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 "%s" (substitute-command-keys
|
||||
(message "%s" (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))))
|
||||
|
||||
(declare-function bibtex-beginning-of-entry "bibtex" ())
|
||||
|
|
@ -364,7 +364,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)))
|
||||
|
|
@ -372,10 +372,10 @@ Calling this function several times find successive citation locations."
|
|||
(unless ref-buffer
|
||||
(setq ref-buffer
|
||||
(save-current-buffer
|
||||
(completing-read
|
||||
(completing-read
|
||||
"Reference buffer: "
|
||||
(delq nil
|
||||
(mapcar
|
||||
(mapcar
|
||||
(lambda (b)
|
||||
(set-buffer b)
|
||||
(if reftex-mode (list (buffer-name b)) nil))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue