Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
\ref's or \pageref's value as default instead of initial input.
This commit is contained in:
Tassilo Horn 2010-11-22 09:09:41 +01:00
parent b609f5916d
commit c799747bd6
2 changed files with 17 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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

21
lisp/textmodes/reftex-ref.el
View file

@ -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)