;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:25:20 2007 ;;; from file /home/cyd/emacs/lisp/textmodes/page.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`page.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@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) "\204\302\303V\203)m\204)n\203\302u\210\304 \305\306#\204\"db\210S\211\202\303W\205eo?\205e\212\307 \305\306#)\203I\303\225`U\203I\303\224b\210\310u\210\307 \305\306#\203[\303\225b\210\202^eb\210T\211\202*\207" [count page-delimiter 1 0 re-search-forward nil t re-search-backward -1] 5 (#$ . 566) "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) "\204\301\302[!\207" [count 1 forward-page] 2 (#$ . 1099) "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) "\203\n\301!\202 \302\211\302V\203\303!\210\202$\302W\203$\303S!\210\303 \210\304\305\306\211#\210\303\307!\207" [arg prefix-numeric-value 0 forward-page push-mark nil t -1] 5 (#$ . 1375) "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) "\203\n\304!\202 \305\212~\210\305V\203\306!\210\202A\305W\203A\305`\212\307 \210\310 !\2037\305\225 =\2049\311)\306\nZ!\210*\312\313!\210\306 \210\305\224\203]\212\305\224b\210\310 !)\203]\305\224b\210`\306\314!\210l\203mo\204m\311y\210`})\207" [arg opoint adjust page-delimiter prefix-numeric-value 0 forward-page beginning-of-line looking-at 1 set-match-data nil -1] 3 (#$ . 1808) "P"]) (put 'narrow-to-page 'disabled t) #@81 Report number of lines on current page, and how many are before or after point. (defalias 'count-lines-page #[nil "\212`\306\211\211\211\211\307 \210\310 \210\311!\204\306\210`\312 \210`\313\f \"\313\f \"\313 \"\314\315\n $.\207" [after before total end beg opoint nil forward-page beginning-of-line looking-at backward-page count-lines message "Page has %d lines (%d + %d)" page-delimiter] 6 (#$ . 2482) nil]) #@38 Print page and line number of point. (defalias 'what-page #[nil "\214~\210\212\303 \210\304`\304b\210\305\n\306#\203 T\202\307\310 \311`\"T#,\207" [opoint count page-delimiter beginning-of-line 1 re-search-forward t message "Page %d, line %d" count-lines] 6 (#$ . 2918) nil]) (provide 'page)