diff lisp/replace.el @ 56449:84df5471b01e

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

--- a/lisp/replace.el	Sat Jul 17 14:31:27 2004 +0000
+++ b/lisp/replace.el	Sat Jul 17 14:34:42 2004 +0000
@@ -786,7 +786,8 @@
 		 nil
 		 nil
 		 nil
-		 'regexp-history)))
+		 'regexp-history
+		 default)))
 	  (if (equal input "")
 	      default
 	    input))