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

[Richard M. Stallman]

Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.150 emacs/lisp/replace.el:1.151
*** emacs/lisp/replace.el:1.150 Tue Jun 25 05:54:26 2002
--- emacs/lisp/replace.el       Fri Jul 12 19:28:15 2002
***************
*** 334,340 ****
    (interactive
     (keep-lines-read-args "Keep lines (containing match for regexp): "))
    (if rstart
!       (goto-char (min rstart rend))
      (if (and transient-mark-mode mark-active)
        (setq rstart (region-beginning)
              rend (copy-marker (region-end)))
--- 334,342 ----
    (interactive
     (keep-lines-read-args "Keep lines (containing match for regexp): "))
    (if rstart
!       (progn
!       (goto-char (min rstart rend))
!       (setq rend (copy-marker (max rstart rend))))
      (if (and transient-mark-mode mark-active)
        (setq rstart (region-beginning)
              rend (copy-marker (region-end)))
***************
*** 381,387 ****
    (interactive
     (keep-lines-read-args "Flush lines (containing match for regexp): "))
    (if rstart
!       (goto-char (min rstart rend))
      (if (and transient-mark-mode mark-active)
        (setq rstart (region-beginning)
              rend (copy-marker (region-end)))
--- 383,391 ----
    (interactive
     (keep-lines-read-args "Flush lines (containing match for regexp): "))
    (if rstart
!       (progn
!       (goto-char (min rstart rend))
!       (setq rend (copy-marker (max rstart rend))))
      (if (and transient-mark-mode mark-active)
        (setq rstart (region-beginning)
              rend (copy-marker (region-end)))