;;; compiled by rms@mole.gnu.ai.mit.edu on Sun May 16 11:43:19 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/page.el ;;; emacs version 19.6.1. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (defalias 'forward-page #[(&optional count) "„ÁÂVƒ*m„*nƒÃÁ!ˆÄ ÆÇ#„#dbˆS‰‚ÂW…So?…SÃÈ!ˆÉ ÆÇ#ƒIÊÂ!bˆ‚LebˆT‰‚+‡" [count 1 0 forward-char re-search-forward page-delimiter nil t -1 re-search-backward match-end] 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!ˆÄ ˆŠÅÂ!ˆÆ!)ƒ<ÅÂ!ˆÈ`ÄÉ!ˆlƒNo„NÅÊ!ˆ`\")‡" [arg prefix-numeric-value 0 widen forward-page forward-line looking-at page-delimiter narrow-to-region -1 1] 4 "\ 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 "Š`À‰‰‰‰Ç ˆÈÉ!ˆÊ !„Ì ˆ`Í ˆ`Î \"Î \"Î \"ÏÐ \n $.‡" [nil after before total end beg opoint forward-page forward-line 0 looking-at page-delimiter end-of-line 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 "ŒÀ ˆŠÁÂ!ˆÃ`ÃbˆÆ È#ƒ T‚ÉÊ Ë` \"T#,‡" [widen forward-line 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])