
(defun forward-page (&optional count) "\
Move forward to page boundary.  With arg, repeat, or go back if negative.
A page boundary is any line whose beginning matches the regexp  page-delimiter." (interactive "p") (byte-code "Âˆ†	 Ä‰ˆÅV… m?…, Æ	ÂÃ#ƒ! Â‚# dbˆS‰ˆ‚
 ˆÅW…5 o?…V ÇÈ!ˆÉ	ÂÃ#ƒK ÊÅ!b‚M ebˆT‰ˆ‚- ‡" [count page-delimiter nil t 1 0 re-search-forward forward-char -1 re-search-backward match-end] 7))

(defun backward-page (&optional count) "\
Move backward to page boundary.  With arg, repeat, or go fwd if negative.
A page boundary is any line whose beginning matches the regexp  page-delimiter." (interactive "p") (byte-code "Áˆ†	 Â‰ˆÃ[!‡" [count nil 1 forward-page] 2))

(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") (byte-code "Áˆƒ Ã!‚ Ä‰ˆÄVƒ Å!‚& ÄW…& ÅS!ˆÅ ˆÆÁÂ\"ˆÅÇ!‡" [arg nil t prefix-numeric-value 0 forward-page push-mark -1] 7))

(defun narrow-to-page (&optional arg) "\
Make text outside current page invisible.
A numeric arg specifies to move forward or backward by that many pages,
thus showing a page other than the one point was originally in." (interactive "P") (byte-code "Âˆƒ Ã!‚ Ä‰ˆŠÅ ˆÄVƒ  Æ!‚* ÄW…* ÆS!ˆÆ ˆŠÇ ˆÈ	!)…; Ç ˆÉ`ÆÊ!ˆl…H o?…N ËÌ!ˆ`\")‡" [arg page-delimiter nil prefix-numeric-value 0 widen forward-page beginning-of-line looking-at narrow-to-region -1 forward-line 1] 13))

(defun count-lines-page nil "\
Report number of lines on current page, and how many are before or after point." (interactive) (byte-code "ÇˆŠ`ÇÇÇÇÇÈ ˆÉ ˆÊ!† Ë ˆ`‰ˆÌ ˆ`‰ˆÍ	
\"Í	\"Í
\"‰ˆÎÏ$.)‡" [opoint beg end total before after page-delimiter nil forward-page beginning-of-line looking-at end-of-line backward-page count-lines message "Page has %d lines (%d + %d)"] 13))

(defun what-page nil "\
Print page and line number of point." (interactive) (byte-code "ÄˆŒÅ ˆŠÆ ˆÇ`ÇbˆÈ
	Ã#…! T‰ˆ‚ ˆÉÊË`	\"T#*))‡" [count opoint page-delimiter t nil widen beginning-of-line 1 re-search-forward message "Page %d, line %d" count-lines] 9))