From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Jul 2004 14:34:42 +0000 (+0000)
Subject: (occur-read-primary-args): Pass default to read-from-minibuffer.
X-Git-Tag: ttn-vms-21-2-B4~5464
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=442a68c7f15f7c3eafec34a66db6d3d25f7d3046;p=emacs.git

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

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))