From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 24 Jul 1993 18:42:33 +0000 (+0000)
Subject: (occur): If no default, don't mention one.
X-Git-Tag: emacs-19.34~11589
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=166aaf6fb59de9e0b32ec6d75ac316b829d95fe6;p=emacs.git

(occur): If no default, don't mention one.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index 49f3920dded..2a4dad983a1 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -276,7 +276,9 @@ It serves as a menu to find any of the occurrences in this buffer.
   (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