mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(Info-follow-reference): Fix completion defaulting.

Browse source
This commit is contained in:
Richard M. Stallman 1993-06-08 04:41:00 +00:00
parent 6028d553ed
commit b0ebdfe551
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/info.el
View file

@ -661,11 +661,13 @@ NAME may be an abbreviation of the reference name."
(cons (cons str nil)
completions))))
(if completions
(list (completing-read (if default
(concat "Follow reference named: ("
default ") ")
"Follow reference named: ")
completions default t))
(let ((input (completing-read (if default
(concat "Follow reference named: ("
default ") ")
"Follow reference named: ")
completions nil t)))
(list (if (equal input "")
default input)))
(error "No cross-references in this node"))))
(let (target beg i (str (concat "\\*note " footnotename)))
(while (setq i (string-match " " str i))