From: Miles Bader <miles@gnu.org>
Date: Thu, 11 Oct 2001 01:19:49 +0000 (+0000)
Subject: (Info-follow-reference): Display default values in prompts as
X-Git-Tag: ttn-vms-21-2-B4~19591
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=968b7671aa295f66af0cf0b3f3a57acf93c10e19;p=emacs.git

(Info-follow-reference): Display default values in prompts as
`(default ...)', not `(...)'.
---

diff --git a/lisp/info.el b/lisp/info.el
index 1317d14db66..c5792482b79 100644
--- 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 "")