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): Display default values in prompts as

Browse Source 
`(default ...)', not `(...)'.
This commit is contained in:
Miles Bader 2001-10-11 01:19:49 +00:00
parent 88a05faf04
commit 968b7671aa
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/info.el
View File

@ -1352,8 +1352,9 @@ FOOTNOTENAME may be an abbreviation of the reference name."
(setq default (car (car completions))))
(if completions
(let ((input (completing-read (if default
(concat "Follow reference named: ("
default ") ")
(concat
"Follow reference named: (default "
default ") ")
"Follow reference named: ")
completions nil t)))
(list (if (equal input "")