changeset 71026:b5294b4387c4

Fix last change.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 28 May 2006 17:05:38 +0000
parents 82d1f472baee
children ff93d411ef36
files lisp/replace.el
diffstat 1 files changed, 3 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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)