From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 8 Jan 2001 16:59:54 +0000 (+0000)
Subject: (Info-search): Print the default as part of the prompt.
X-Git-Tag: emacs-pretest-21.0.95~51
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bbc96600a75e7ba655fe8679e41c7c3da91fc89a;p=emacs.git

(Info-search): Print the default as part of the prompt.
---

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