# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1148835938 0
# Node ID b5294b4387c4228d3b564603bdb3828660c57e7b
# Parent  82d1f472baeec234c4cab407c4791d2f2fae2584
Fix last change.

diff -r 82d1f472baee -r b5294b4387c4 lisp/replace.el
--- a/lisp/replace.el	Sun May 28 17:02:37 2006 +0000
+++ b/lisp/replace.el	Sun May 28 17:05:38 2006 +0000
@@ -114,12 +114,9 @@
 	       query-replace-from-history-variable
 	       nil t))))
       (if (and (zerop (length from)) query-replace-defaults)
-	  (progn
-	    (set query-replace-from-history-variable
-		 (cdr (symbol-value query-replace-from-history-variable)))
-	    (cons (car query-replace-defaults)
-		  (query-replace-compile-replacement
-		   (cdr query-replace-defaults) regexp-flag)))
+	  (cons (car query-replace-defaults)
+		(query-replace-compile-replacement
+		 (cdr query-replace-defaults) regexp-flag))
 	;; Warn if user types \n or \t, but don't reject the input.
 	(and regexp-flag
 	     (string-match "\\(\\`\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\[nt]\\)" from)