(occur-read-primary-args): Pass default to read-from-minibuffer.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/replace.el b/lisp/replace.el
index 60c28d6c48a..f81c6f53914 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -786,7 +786,8 @@ If the value is nil, don't highlight the buffer names specially."
                  nil
                  nil
                  nil
-                 'regexp-history)))
+                 'regexp-history
+                 default)))
           (if (equal input "")
               default
             input))