Fix last change.

[bpt/emacs.git] / lisp / replace.el

diff --git a/lisp/replace.el b/lisp/replace.el
index 53148be..72236c2 100644 (file)
--- 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)