From bbc96600a75e7ba655fe8679e41c7c3da91fc89a Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 8 Jan 2001 16:59:54 +0000 Subject: [PATCH] (Info-search): Print the default as part of the prompt. --- lisp/info.el | 8 ++++++-- 1 file 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 "") -- 2.39.2