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

[Eli Zaretskii]

Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.204 emacs/lisp/replace.el:1.205
*** emacs/lisp/replace.el:1.204 Wed Feb 16 09:49:45 2005
--- emacs/lisp/replace.el       Sat Feb 19 13:09:37 2005
***************
*** 115,122 ****
               query-replace-from-history-variable
               nil t t))))
        (if (and (zerop (length from)) lastto lastfrom)
!         (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)
--- 115,125 ----
               query-replace-from-history-variable
               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))))
        ;; Warn if user types \n or \t, but don't reject the input.
        (and regexp-flag
             (string-match "\\(\\`\\|[^\\]\\)\\(\\\\\\\\\\)*\\(\\\\[nt]\\)" 
from)