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

[Miles Bader]

Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.165.4.4 emacs/lisp/replace.el:1.165.4.5
*** emacs/lisp/replace.el:1.165.4.4     Tue Jul  6 02:56:08 2004
--- emacs/lisp/replace.el       Sun Jul 11 22:07:44 2004
***************
*** 287,292 ****
--- 287,293 ----
  only matches that are surrounded by word boundaries.
  Fourth and fifth arg START and END specify the region to operate on."
    (interactive
+    (progn
     (barf-if-buffer-read-only)
     (let* ((from
           ;; Let-bind the history var to disable the "foo -> bar" default.
***************
*** 305,311 ****
           (if (and transient-mark-mode mark-active)
               (region-beginning))
           (if (and transient-mark-mode mark-active)
!              (region-end)))))
    (perform-replace regexp (cons 'replace-eval-replacement to-expr)
                   t 'literal delimited nil nil start end))
  
--- 306,312 ----
           (if (and transient-mark-mode mark-active)
               (region-beginning))
           (if (and transient-mark-mode mark-active)
!              (region-end))))))
    (perform-replace regexp (cons 'replace-eval-replacement to-expr)
                   t 'literal delimited nil nil start end))