diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2001-01-08 16:59:54 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2001-01-08 16:59:54 +0000 |
| commit | bbc96600a75e7ba655fe8679e41c7c3da91fc89a (patch) | |
| tree | e53c7fbb82a27cba22848b95af26181bd0dd6e92 /lisp/info.el | |
| parent | 56f24bc188cc4ec3e51f44c53789122b615be8a7 (diff) | |
| download | emacs-bbc96600a75e7ba655fe8679e41c7c3da91fc89a.tar.gz | |
(Info-search): Print the default as part of the prompt.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/info.el b/lisp/info.el index 6239b036fd3..a298607785d 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -1097,8 +1097,12 @@ If FORK is a string, it is the name to use for the new buffer." (defun Info-search (regexp) "Search for REGEXP, starting from point, and select node it's found in." - (interactive (list (read-string "Regexp search: " - nil 'Info-search-history))) + (interactive (list (read-string + (if Info-search-history + (format "Regexp search (default `%s'): " + (car Info-search-history)) + "Regexp search: ") + nil 'Info-search-history))) (when transient-mark-mode (deactivate-mark)) (when (equal regexp "") |