From: Chong Yidong <cyd@stupidchicken.com>
Date: Sun, 28 May 2006 17:05:38 +0000 (+0000)
Subject: Fix last change.
X-Git-Tag: emacs-pretest-22.0.90~2238
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5dae4b115603351a050276b940700de95ba7a28d;p=emacs.git

Fix last change.
---

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)