comparison lisp/textmodes/reftex-dcr.el @ 49599:5ade352e8d1c

Trailing whitespace deleted.

49598:0d8b17d428b5

      (reftex-access-scan-info arg)
      (setq dw (reftex-view-regexp-match
		(format reftex-find-index-entry-regexp-format
			(regexp-quote key))
		3 nil nil)))
     (t 
      (reftex-access-scan-info arg)
      (catch 'exit
	(let ((list reftex-view-crossref-extra)
	      entry mre action group)
	  (while (setq entry (pop list))
	    (setq mre (car entry)
		  action (nth 1 entry)
		  group (nth 2 entry))
	    (when (string-match mre macro)
	      (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 
  ;; 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 
	   (current-window-configuration)))

  (let (files size item (pos (point)) (win (selected-window)) pop-win
	      (bibtype (reftex-bib-or-thebib)))
    ;; Find the citation mode and the file list

;     ((assq 'thebib (symbol-value reftex-docstruct-symbol))
     ((eq bibtype 'thebib)
      (setq item t
	    files (reftex-uniquify
		   (mapcar 'cdr
			   (reftex-all-assq 
			    'thebib (symbol-value reftex-docstruct-symbol))))))
     (reftex-default-bibliography
      (setq item nil
	    files (reftex-default-bibliography)))
     (how)  ;; don't throw for special display

      (goto-char pos)
      (when (equal arg 2)
	(select-window pop-win)))))

(defun reftex-view-cr-ref (arg label how)
  ;; 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 
	   (current-window-configuration)))

  (let* ((xr-data (assoc 'xr (symbol-value reftex-docstruct-symbol)))
	 (xr-re (nth 2 xr-data))
	 (entry (assoc label (symbol-value reftex-docstruct-symbol)))

    (if (and (not entry) (stringp label) xr-re (string-match xr-re label))
	;; Label is defined in external document
	(save-excursion
	  (save-match-data
	    (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 
		(assoc label (symbol-value reftex-docstruct-symbol)))))
    (if (eq how 'echo)
	;; Display in echo area
	(reftex-echo-ref label entry (symbol-value reftex-docstruct-symbol))
      (let ((window-conf (current-window-configuration)))

       ;; Make sure we are not already displaying this one
       (not (memq last-command '(reftex-view-crossref
				 reftex-mouse-view-crossref)))
       ;; Quick precheck if this might be a relevant spot
       ;; FIXME: Can fail with backslash in comment
       (save-excursion  
	 (search-backward "\\" nil t)
	 (looking-at "\\\\[a-zA-Z]*\\(cite\\|ref\\|bibentry\\)"))

       (condition-case nil
	   (let ((current-prefix-arg nil))

(defun reftex-restore-window-conf ()
  (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 (substitute-command-keys (format reftex-no-info-message "ref"))))

      ;; Need to look in the database
      (unless reftex-revisit-to-echo
	(setq files (reftex-visited-files files)))

      (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 
			   (format reftex-no-info-message "cite"))))
	       nil)))
      (when entry
	(if item
	    (setq string (reftex-nicify-text entry))

	(message "Automatic display of crossref information was turned off"))
    (setq reftex-auto-view-crossref-timer
	  (if (featurep 'xemacs)
	      (if reftex-use-itimer-in-xemacs
		  (start-itimer "RefTeX Idle Timer"
				'reftex-view-crossref-when-idle 
				reftex-idle-time reftex-idle-time t)
		(add-hook 'post-command-hook 'reftex-start-itimer-once)
		t)
	    (run-with-idle-timer
	     reftex-idle-time t 'reftex-view-crossref-when-idle)))

(defun reftex-start-itimer-once ()
   (and reftex-mode
	(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-idle-time nil t))))

(defun reftex-view-crossref-from-bibtex (&optional arg)
  "View location in a LaTeX document which cites the BibTeX entry at point.
Since BibTeX files can be used by many LaTeX documents, this function
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 
    ;; 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)))
    ;; Establish connection to reference buffer
    (unless ref-buffer
      (setq ref-buffer
	    (save-excursion
	      (completing-read 
	       "Reference buffer: "
	       (delq nil
		     (mapcar 
		      (lambda (b)
			(set-buffer b)
			(if reftex-mode (list (buffer-name b)) nil))
		      (buffer-list)))
	       nil t)))

49599:5ade352e8d1c

      (reftex-access-scan-info arg)
      (setq dw (reftex-view-regexp-match
		(format reftex-find-index-entry-regexp-format
			(regexp-quote key))
		3 nil nil)))
     (t
      (reftex-access-scan-info arg)
      (catch 'exit
	(let ((list reftex-view-crossref-extra)
	      entry mre action group)
	  (while (setq entry (pop list))
	    (setq mre (car entry)
		  action (nth 1 entry)
		  group (nth 2 entry))
	    (when (string-match mre macro)
	      (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
  ;; 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
	   (current-window-configuration)))

  (let (files size item (pos (point)) (win (selected-window)) pop-win
	      (bibtype (reftex-bib-or-thebib)))
    ;; Find the citation mode and the file list

;     ((assq 'thebib (symbol-value reftex-docstruct-symbol))
     ((eq bibtype 'thebib)
      (setq item t
	    files (reftex-uniquify
		   (mapcar 'cdr
			   (reftex-all-assq
			    'thebib (symbol-value reftex-docstruct-symbol))))))
     (reftex-default-bibliography
      (setq item nil
	    files (reftex-default-bibliography)))
     (how)  ;; don't throw for special display

      (goto-char pos)
      (when (equal arg 2)
	(select-window pop-win)))))

(defun reftex-view-cr-ref (arg label how)
  ;; 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
	   (current-window-configuration)))

  (let* ((xr-data (assoc 'xr (symbol-value reftex-docstruct-symbol)))
	 (xr-re (nth 2 xr-data))
	 (entry (assoc label (symbol-value reftex-docstruct-symbol)))

    (if (and (not entry) (stringp label) xr-re (string-match xr-re label))
	;; Label is defined in external document
	(save-excursion
	  (save-match-data
	    (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
		(assoc label (symbol-value reftex-docstruct-symbol)))))
    (if (eq how 'echo)
	;; Display in echo area
	(reftex-echo-ref label entry (symbol-value reftex-docstruct-symbol))
      (let ((window-conf (current-window-configuration)))

       ;; Make sure we are not already displaying this one
       (not (memq last-command '(reftex-view-crossref
				 reftex-mouse-view-crossref)))
       ;; Quick precheck if this might be a relevant spot
       ;; FIXME: Can fail with backslash in comment
       (save-excursion
	 (search-backward "\\" nil t)
	 (looking-at "\\\\[a-zA-Z]*\\(cite\\|ref\\|bibentry\\)"))

       (condition-case nil
	   (let ((current-prefix-arg nil))

(defun reftex-restore-window-conf ()
  (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 (substitute-command-keys (format reftex-no-info-message "ref"))))

      ;; Need to look in the database
      (unless reftex-revisit-to-echo
	(setq files (reftex-visited-files files)))

      (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
			   (format reftex-no-info-message "cite"))))
	       nil)))
      (when entry
	(if item
	    (setq string (reftex-nicify-text entry))

	(message "Automatic display of crossref information was turned off"))
    (setq reftex-auto-view-crossref-timer
	  (if (featurep 'xemacs)
	      (if reftex-use-itimer-in-xemacs
		  (start-itimer "RefTeX Idle Timer"
				'reftex-view-crossref-when-idle
				reftex-idle-time reftex-idle-time t)
		(add-hook 'post-command-hook 'reftex-start-itimer-once)
		t)
	    (run-with-idle-timer
	     reftex-idle-time t 'reftex-view-crossref-when-idle)))

(defun reftex-start-itimer-once ()
   (and reftex-mode
	(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-idle-time nil t))))

(defun reftex-view-crossref-from-bibtex (&optional arg)
  "View location in a LaTeX document which cites the BibTeX entry at point.
Since BibTeX files can be used by many LaTeX documents, this function
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
    ;; 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)))
    ;; Establish connection to reference buffer
    (unless ref-buffer
      (setq ref-buffer
	    (save-excursion
	      (completing-read
	       "Reference buffer: "
	       (delq nil
		     (mapcar
		      (lambda (b)
			(set-buffer b)
			(if reftex-mode (list (buffer-name b)) nil))
		      (buffer-list)))
	       nil t)))