/[emacs]/emacs/lisp/replace.el
ViewVC logotype

Diff of /emacs/lisp/replace.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.151 by rms, Fri Jul 12 23:28:15 2002 UTC revision 1.152 by rms, Thu Jul 18 15:00:56 2002 UTC
# Line 332  on the contents of the region.  Otherwis Line 332  on the contents of the region.  Otherwis
332  end of the buffer."  end of the buffer."
333    
334    (interactive    (interactive
335     (keep-lines-read-args "Keep lines (containing match for regexp): "))     (progn
336         (barf-if-buffer-read-only)
337         (keep-lines-read-args "Keep lines (containing match for regexp): ")))
338    (if rstart    (if rstart
339        (progn        (progn
340          (goto-char (min rstart rend))          (goto-char (min rstart rend))
# Line 381  on the contents of the region.  Otherwis Line 383  on the contents of the region.  Otherwis
383  end of the buffer."  end of the buffer."
384    
385    (interactive    (interactive
386     (keep-lines-read-args "Flush lines (containing match for regexp): "))     (progn
387         (barf-if-buffer-read-only)
388         (keep-lines-read-args "Flush lines (containing match for regexp): ")))
389    (if rstart    (if rstart
390        (progn        (progn
391          (goto-char (min rstart rend))          (goto-char (min rstart rend))

Legend:
Removed from v.1.151  
changed lines
  Added in v.1.152

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26