mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases 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
Show Stats 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))