(query-replace-read-from): Fix 2005-02-19 change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d48d8704ebe725c950a869d59bd3af011a89657..b5c996529070086de5a3a8d24ba2404136087d3f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-02-25  Lute Kamstra  <lute@gnu.org>
+
+       * replace.el (query-replace-read-from): Fix 2005-02-19 change.
+
 2005-02-24  Luc Teirlinck  <teirllm@auburn.edu>
 
        * frame.el (blink-cursor-mode): Add :group keyword.

diff --git a/lisp/replace.el b/lisp/replace.el
index 2c60cd006f143600727aa4850bb8f256596f54e0..d2a0370f93ea1ae14bc72b4eb9c140295e5d4eb5 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1,7 +1,7 @@
 ;;; replace.el --- replace commands for Emacs
 
 ;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1996, 1997, 2000, 2001, 2002,
-;;   2003, 2004  Free Software Foundation, Inc.
+;;   2003, 2004, 2005  Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 
@@ -116,10 +116,10 @@ wants to replace FROM with TO."
               nil t t))))
       (if (and (zerop (length from)) lastto lastfrom)
          (progn
-           (cons lastfrom
-                 (query-replace-compile-replacement lastto regexp-flag))
            (set query-replace-from-history-variable
-                (cdr (symbol-value query-replace-from-history-variable))))
+                (cdr (symbol-value query-replace-from-history-variable)))
+           (cons lastfrom
+                 (query-replace-compile-replacement lastto regexp-flag)))
        ;; Warn if user types \n or \t, but don't reject the input.
        (and regexp-flag
             (string-match "\\(\\`\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\[nt]\\)" from)