[Emacs-diffs] Changes to emacs/lisp/replace.el

[Chong Yidong]

Index: emacs/lisp/replace.el
diff -u emacs/lisp/replace.el:1.241 emacs/lisp/replace.el:1.242
--- emacs/lisp/replace.el:1.241 Sun May 28 17:02:37 2006
+++ emacs/lisp/replace.el       Sun May 28 17:05:38 2006
@@ -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)