;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:48:00 1995
;;; from file /gd/gnu/emacs/19.0/lisp/page.el
;;; emacs version 19.28.90.26.
;;; 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 "`/gd/gnu/emacs/19.0/lisp/page.el' was compiled for Emacs 19"))


#@156 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'.
(defalias 'forward-page #[(&optional count) "„ ÁÂVƒ) m„) nƒ ÁuˆÃ\fÅÆ#„\" dbˆS‰‚ ÂW…g o?…g ÇuˆÅ`	Ê\fÅÆ#‰	ƒP Â•U„= 	ƒ\\ Â•bˆ‚_ ebˆ*T‰‚* ‡" [count 1 0 re-search-forward page-delimiter nil t -1 end result re-search-backward] 5 (#$ . 478) "p"])
#@156 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'.
(defalias 'backward-page #[(&optional count) "„ ÁÂ[!‡" [count 1 forward-page] 2 (#$ . 898) "p"])
#@182 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.
(defalias 'mark-page #[(&optional arg) "ƒ\n Á!‚ Â‰ÂVƒ Ã!ˆ‚$ ÂWƒ$ ÃS!ˆÃ ˆÄÅÆ‰#ˆÃÇ!‡" [arg prefix-numeric-value 0 forward-page push-mark nil t -1] 5 (#$ . 1161) "P"])
#@179 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.
(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 (#$ . 1522) "P"])
(put (quote narrow-to-page) (quote disabled) t)
#@81 Report number of lines on current page, and how many are before or after point.
(defalias 'count-lines-page #[nil "Š`À‰‰‰‰Ç ˆÈyˆÉ\n!„ Àˆ`Ë ˆ`Ì\f\"Ì\"Ì\f\"ÍÎ\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 (#$ . 1972) nil])
#@38 Print page and line number of point.
(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 (#$ . 2330) nil])
(provide (quote page))