diff options
| -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 "") |