# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 978973194 0
# Node ID 1eb26b81ece0ab22ccaeab4f6e18ce6d632b6fa9
# Parent  e6d8a27098f3f0ad00202c5d4262e9f1f7ec30d9
(Info-search): Print the default as part of the prompt.

diff -r e6d8a27098f3 -r 1eb26b81ece0 lisp/info.el
--- a/lisp/info.el	Mon Jan 08 16:32:12 2001 +0000
+++ b/lisp/info.el	Mon Jan 08 16:59:54 2001 +0000
@@ -1097,8 +1097,12 @@
 
 (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 "")