Function: mark-page
mark-page is an interactive and byte-compiled function defined in
page.el.gz.
Signature
(mark-page &optional ARG)
Documentation
Put mark at end of page, point at beginning.
A numeric arg specifies to move forward or backward by that many pages, thus marking a page other than the one point was originally in.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/textmodes/page.el.gz
(defun mark-page (&optional arg)
"Put mark at end of page, point at beginning.
A numeric arg specifies to move forward or backward by that many pages,
thus marking a page other than the one point was originally in."
(interactive "P")
(setq arg (if arg (prefix-numeric-value arg) 0))
(if (> arg 0)
(forward-page arg)
(if (< arg 0)
(forward-page (1- arg))))
(forward-page)
(push-mark nil t t)
(forward-page -1))