diff options
| author | Miles Bader | 2001-10-11 01:19:49 +0000 |
|---|---|---|
| committer | Miles Bader | 2001-10-11 01:19:49 +0000 |
| commit | 968b7671aa295f66af0cf0b3f3a57acf93c10e19 (patch) | |
| tree | 05d6998330a9389ff87fe30cd6056be076d7a3ff | |
| parent | 88a05faf04baa9eff3b7960edf59627ee1900d11 (diff) | |
| download | emacs-968b7671aa295f66af0cf0b3f3a57acf93c10e19.tar.gz emacs-968b7671aa295f66af0cf0b3f3a57acf93c10e19.zip | |
(Info-follow-reference): Display default values in prompts as
`(default ...)', not `(...)'.
| -rw-r--r-- | lisp/info.el | 5 |
1 files changed, 3 insertions, 2 deletions
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." | |||
| 1352 | (setq default (car (car completions)))) | 1352 | (setq default (car (car completions)))) |
| 1353 | (if completions | 1353 | (if completions |
| 1354 | (let ((input (completing-read (if default | 1354 | (let ((input (completing-read (if default |
| 1355 | (concat "Follow reference named: (" | 1355 | (concat |
| 1356 | default ") ") | 1356 | "Follow reference named: (default " |
| 1357 | default ") ") | ||
| 1357 | "Follow reference named: ") | 1358 | "Follow reference named: ") |
| 1358 | completions nil t))) | 1359 | completions nil t))) |
| 1359 | (list (if (equal input "") | 1360 | (list (if (equal input "") |