From 5dae4b115603351a050276b940700de95ba7a28d Mon Sep 17 00:00:00 2001
From: Chong Yidong <cyd@stupidchicken.com>
Date: Sun, 28 May 2006 17:05:38 +0000
Subject: [PATCH] Fix last change.

---
 lisp/replace.el | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/lisp/replace.el b/lisp/replace.el
index 53148be64c5..72236c298cd 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -114,12 +114,9 @@ wants to replace FROM with TO."
 	       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)
-- 
2.39.5