changeset 4262:bc0af06c6e3c

(occur): If no default, don't mention one.
author Richard M. Stallman <rms@gnu.org>
date Sat, 24 Jul 1993 18:42:33 +0000
parents f9599125f7f0
children 7c7fa71cfd6e
files lisp/replace.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/replace.el	Sat Jul 24 17:35:02 1993 +0000
+++ b/lisp/replace.el	Sat Jul 24 18:42:33 1993 +0000
@@ -276,7 +276,9 @@
   (interactive (list (let* ((default (car regexp-history))
 			    (input 
 			     (read-from-minibuffer
-			      (format "List lines matching regexp (default `%s'): " default)
+			      (if default
+				  (format "List lines matching regexp (default `%s'): " default)
+				"List lines matching regexp: ")
 			      nil nil nil
 			      'regexp-history)))
 		       (if (> (length input) 0) input