;ELC   
;;; compiled by rms@mole.gnu.ai.mit.edu on Mon Nov 15 03:12:30 1993
;;; from file /home/fsf/rms/e19/lisp/page.el
;;; emacs version 19.20.9.2.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19"))

(defalias 'forward-page #[(&optional count) "„ ÁÂVƒ) m„) nƒ ÁuˆÃÅÆ#„\" dbˆS‰‚ ÂW…P o?…P ÇuˆÈÅÆ#ƒF Â•bˆ‚I ebˆT‰‚* ‡" [count 1 0 re-search-forward page-delimiter nil t -1 re-search-backward] 5 "\
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'." "p"])
(defalias 'backward-page #[(&optional count) "„ ÁÂ[!‡" [count 1 forward-page] 2 "\
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'." "p"])
(defalias 'mark-page #[(&optional arg) "ƒ\n Á!‚ Â‰ÂVƒ Ã!ˆ‚$ ÂWƒ$ ÃS!ˆÃ ˆÄÅÆ‰#ˆÃÇ!‡" [arg prefix-numeric-value 0 forward-page push-mark nil t -1] 5 "\
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." "P"])
(defalias 'narrow-to-page #[(&optional arg) "ƒ\n Á!‚ ÂŠ~ˆÂVƒ Ã!ˆ‚' ÂWƒ' ÃS!ˆÃ ˆŠÂ”bˆÄ!)ƒ9 Âyˆ`ÃÆ!ˆlƒI o„I Çyˆ`})‡" [arg prefix-numeric-value 0 forward-page looking-at page-delimiter -1 1] 3 "\
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." "P"])
(put (quote narrow-to-page) (quote disabled) t)
(defalias 'count-lines-page #[nil "Š`À‰‰‰‰Ç ˆÈyˆÉ\n!„ Àˆ`Ë ˆ`Ì\"Ì\"Ì\"ÍÎ\n	$.‡" [nil after before total end beg opoint forward-page 0 looking-at page-delimiter backward-page count-lines message "Page has %d lines (%d + %d)"] 6 "\
Report number of lines on current page, and how many are before or after point." nil])
(defalias 'what-page #[nil "Œ~ˆŠÀyˆÁ`ÁbˆÄ\nÆ#ƒ T‚ ÇÈÉ`\n\"T#,‡" [0 1 opoint count re-search-forward page-delimiter t message "Page %d, line %d" count-lines] 6 "\
Print page and line number of point." nil])
(provide (quote page))