From 968b7671aa295f66af0cf0b3f3a57acf93c10e19 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Thu, 11 Oct 2001 01:19:49 +0000 Subject: [PATCH] (Info-follow-reference): Display default values in prompts as `(default ...)', not `(...)'. --- lisp/info.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index 1317d14db6..c5792482b7 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 "") -- 2.39.2