Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 21:37:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(keep-lines, flush-lines): Interactively report

Browse source 
read-only error	before reading regexp argument.
This commit is contained in:
Richard M. Stallman 2002-07-18 15:00:56 +00:00
parent 155133a257
commit 98faf1bb41
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/replace.el
View file

@ -332,7 +332,9 @@ on the contents of the region. Otherwise, operate from point to the
end of the buffer."
(interactive
(keep-lines-read-args "Keep lines (containing match for regexp): "))
(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,7 +383,9 @@ on the contents of the region. Otherwise, operate from point to the
end of the buffer."
(interactive
(keep-lines-read-args "Flush lines (containing match for regexp): "))
(progn
(barf-if-buffer-read-only)
(keep-lines-read-args "Flush lines (containing match for regexp): ")))
(if rstart
(progn
(goto-char (min rstart rend))