;ELC   
;;; compiled by jwz@thalidomide on Thu Oct 28 22:05:20 1993
;;; from file /th/jwz/emacs19/lisp/prim/page.el
;;; emacs version 19.9 Lucid.
;;; bytecomp version 2.20; 20-oct-93.
;;; 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."))

(fset 'forward-page #[(&optional count) "¬‚ÁÂV«™m¬–n«ƒÁuˆÃÅÆ#¬ƒdbˆS‰ªcÂW­o?­™ÇuˆÈÅÆ#«†Â•bˆªƒ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"])
(fset '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"])
(fset 'mark-page #[(&optional arg) "«…Á!ªÂ‰Â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"])
(fset 'narrow-to-page #[(&optional arg) "«…Á!ªÂŠ~ˆÂV«†Ã!ˆªŠÂW«…ÃS!ˆÃ ˆŠÂyˆÄ!)«ƒÂyˆ`ÃÆ!ˆl«†o¬ƒÇ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"])
(fset '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 gettext "Page has %d lines (%d + %d)"] 6 "\
Report number of lines on current page, and how many are before or after point." "_"])
(fset 'what-page #[nil "Œ~ˆŠÀyˆÁ`ÁbˆÄ\nÆ#«…TªtÇÈÉ!Ê`\n\"T#,‡" [0 1 opoint count re-search-forward page-delimiter t message gettext "Page %d, line %d" count-lines] 6 "\
Print page and line number of point." "_"])