Mercurial > emacs

changeset 39757:0597a7bc10a2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-follow-reference): Display default values in prompts as `(default ...)', not `(...)'.
author Miles Bader <miles@gnu.org>
date Thu, 11 Oct 2001 01:19:49 +0000
parents cc0f91bb368d
children 875aaf118d95
files lisp/info.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Thu Oct 11 00:50:53 2001 +0000
+++ b/lisp/info.el	Thu Oct 11 01:19:49 2001 +0000
@@ -1352,8 +1352,9 @@
          (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 "")