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

1 files changed, 3 insertions, 1 deletions

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