changeset 35136:1eb26b81ece0

(Info-search): Print the default as part of the prompt.
author Eli Zaretskii <eliz@gnu.org>
date Mon, 08 Jan 2001 16:59:54 +0000
parents e6d8a27098f3
children 6722a8132e56
files lisp/info.el
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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 "")