interactively with the mark inactive, or called from Lisp with
END nil), it also deletes all trailing lines at the end of the
buffer if the variable `delete-trailing-lines' is non-nil."
- ;; XEmacs; "*r" instead of re-implementing it.
+ (eq (marker-buffer (mark-marker t)) (current-buffer)))
+ (list (region-beginning) (region-end))
(let ((end-marker (copy-marker (or end (point-max))))