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)) |
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)) |