diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-08 04:41:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-08 04:41:00 +0000 |
| commit | f91dc1be7dcc50b6908d473e8cd24fcbfcd524e3 (patch) | |
| tree | 4e48850f9f738d6144f6bc091f033ef90c6c7e9d /lisp/info.el | |
| parent | e7b0ea0d3aaf111d397aeb46b8ce1b4fb267d3b8 (diff) | |
| download | emacs-f91dc1be7dcc50b6908d473e8cd24fcbfcd524e3.tar.gz | |
(Info-follow-reference): Fix completion defaulting.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/info.el b/lisp/info.el index 043a4402ce0..1aec6acc629 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -661,11 +661,13 @@ NAME may be an abbreviation of the reference name." (cons (cons str nil) completions)))) (if completions - (list (completing-read (if default - (concat "Follow reference named: (" - default ") ") - "Follow reference named: ") - completions default t)) + (let ((input (completing-read (if default + (concat "Follow reference named: (" + default ") ") + "Follow reference named: ") + completions nil t))) + (list (if (equal input "") + default input))) (error "No cross-references in this node")))) (let (target beg i (str (concat "\\*note " footnotename))) (while (setq i (string-match " " str i)) |