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

[Richard M. Stallman]

Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.151 emacs/lisp/replace.el:1.152
*** emacs/lisp/replace.el:1.151 Fri Jul 12 19:28:15 2002
--- emacs/lisp/replace.el       Thu Jul 18 11:00:56 2002
***************
*** 332,338 ****
  end of the buffer."
  
    (interactive
!    (keep-lines-read-args "Keep lines (containing match for regexp): "))
    (if rstart
        (progn
        (goto-char (min rstart rend))
--- 332,340 ----
  end of the buffer."
  
    (interactive
!    (progn
!      (barf-if-buffer-read-only)
!      (keep-lines-read-args "Keep lines (containing match for regexp): ")))
    (if rstart
        (progn
        (goto-char (min rstart rend))
***************
*** 381,387 ****
  end of the buffer."
  
    (interactive
!    (keep-lines-read-args "Flush lines (containing match for regexp): "))
    (if rstart
        (progn
        (goto-char (min rstart rend))
--- 383,391 ----
  end of the buffer."
  
    (interactive
!    (progn
!      (barf-if-buffer-read-only)
!      (keep-lines-read-args "Flush lines (containing match for regexp): ")))
    (if rstart
        (progn
        (goto-char (min rstart rend))