Commit 119831da authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(flush-lines, keep-lines): Convert REND to a marker.

parent e870de88
......@@ -334,7 +334,9 @@ end of the buffer."
(interactive
(keep-lines-read-args "Keep lines (containing match for regexp): "))
(if rstart
(goto-char (min rstart rend))
(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,7 +383,9 @@ end of the buffer."
(interactive
(keep-lines-read-args "Flush lines (containing match for regexp): "))
(if rstart
(goto-char (min rstart rend))
(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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment