Commit b0ebdfe5 authored by Richard M. Stallman's avatar Richard M. Stallman

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

parent 6028d553
......@@ -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))
......
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