(Info-follow-reference): Display default values in prompts as

[gnu-emacs] / lisp / info.el

diff --git a/lisp/info.el b/lisp/info.el
index 1317d14db6614cdce472426e8484b55b03b67c87..c5792482b7947d4e11fca82e5ec18fe28b60da65 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -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 "")