# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743539353 0
# Node ID bc0af06c6e3c0a2da1b7a3c3851b2e692f527c40
# Parent  f9599125f7f097743ea8b846e29b3b91cd1160ed
(occur): If no default, don't mention one.

diff -r f9599125f7f0 -r bc0af06c6e3c lisp/replace.el
--- 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