diff options
| author | Richard M. Stallman | 1993-06-08 04:41:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-06-08 04:41:00 +0000 |
| commit | b0ebdfe55170d996adf13a5408dd8cec2798ade3 (patch) | |
| tree | 62f4ad23834659c1f4a57d0ff8e0e8eb852d9716 | |
| parent | 6028d553ed9760f0b8566a5765291f8a036d8cfd (diff) | |
| download | emacs-b0ebdfe55170d996adf13a5408dd8cec2798ade3.tar.gz emacs-b0ebdfe55170d996adf13a5408dd8cec2798ade3.zip | |
(Info-follow-reference): Fix completion defaulting.
| -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." | |||
| 661 | (cons (cons str nil) | 661 | (cons (cons str nil) |
| 662 | completions)))) | 662 | completions)))) |
| 663 | (if completions | 663 | (if completions |
| 664 | (list (completing-read (if default | 664 | (let ((input (completing-read (if default |
| 665 | (concat "Follow reference named: (" | 665 | (concat "Follow reference named: (" |
| 666 | default ") ") | 666 | default ") ") |
| 667 | "Follow reference named: ") | 667 | "Follow reference named: ") |
| 668 | completions default t)) | 668 | completions nil t))) |
| 669 | (list (if (equal input "") | ||
| 670 | default input))) | ||
| 669 | (error "No cross-references in this node")))) | 671 | (error "No cross-references in this node")))) |
| 670 | (let (target beg i (str (concat "\\*note " footnotename))) | 672 | (let (target beg i (str (concat "\\*note " footnotename))) |
| 671 | (while (setq i (string-match " " str i)) | 673 | (while (setq i (string-match " " str i)) |