Commit c799747b authored by Tassilo Horn's avatar Tassilo Horn
Browse files

* textmodes/reftex-ref.el (reftex-goto-label): Use the current

\ref's or \pageref's value as default instead of initial input.
parent b609f591
2010-11-22 Tassilo Horn <tassilo@member.fsf.org>
* textmodes/reftex-ref.el (reftex-goto-label): Use the current
\ref's or \pageref's value as default instead of initial input.
2010-11-21 Michael Albinus <michael.albinus@gmx.de>
 
* files.el (backup-by-copying-when-mismatch): The default value is
......
......@@ -237,9 +237,9 @@ This function is controlled by the settings of reftex-insert-label-flags."
(setq label default))
;; Insert the label into the label list
(let* ((here-I-am-info
(let* ((here-I-am-info
(save-excursion
(if (and (or naked no-insert)
(if (and (or naked no-insert)
(integerp (cdr macro-cell)))
(goto-char (cdr macro-cell)))
(reftex-where-am-I)))
......@@ -830,13 +830,16 @@ Optional prefix argument OTHER-WINDOW goes to the label in another window."
(reftex-access-scan-info)
(let* ((wcfg (current-window-configuration))
(docstruct (symbol-value reftex-docstruct-symbol))
(label (completing-read "Label: " docstruct
(lambda (x) (stringp (car x))) t
;; If point is inside a \ref{} or
;; \pageref{}, use that as initial
;; input.
(when (looking-back "\\\\\\(?:page\\)?ref{[-a-zA-Z0-9_*.:]*")
(reftex-this-word "-a-zA-Z0-9_*.:"))))
;; If point is inside a \ref{} or \pageref{}, use that as
;; default value.
(default (when (looking-back "\\\\\\(?:page\\)?ref{[-a-zA-Z0-9_*.:]*")
(reftex-this-word "-a-zA-Z0-9_*.:")))
(label (completing-read (if default
(format "Label (default %s): " default)
"Label: ")
docstruct
(lambda (x) (stringp (car x))) t nil nil
default))
(selection (assoc label docstruct))
(where (progn
(reftex-show-label-location selection t nil 'stay)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment