Current File : //usr/local/share/emacs/27.2/lisp/textmodes/page.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@178 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'.
(fn &optional COUNT)
(defalias 'forward-page #[256 "\211\204 \301\262\211\302V\203* m\204* n\203 \301u\210\303\304\305#\204# db\210\211S\262\202 \211\302W\205j o?\205j \212\306\304\305#)\203J \302\225`U\203J \302\224b\210o\204c \307u\210\306\304\305#\203` \302\225b\210\202c eb\210\211T\262\202* \207" [page-delimiter 1 0 re-search-forward nil t re-search-backward -1] 5 (#$ . 409) "p"])
#@178 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'.
(fn &optional COUNT)
(defalias 'backward-page #[256 "\211\204 \300\262\301[!\207" [1 forward-page] 3 (#$ . 969) "p"])
#@202 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.
(fn &optional ARG)
(defalias 'mark-page #[256 "\211\203\n \300!\202 \301\262\211\301V\203 \302!\210\202% \211\301W\203% \302S!\210\302 \210\303\304\305\211#\210\302\306!\207" [prefix-numeric-value 0 forward-page push-mark nil t -1] 5 (#$ . 1253) "P"])
#@199 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.
(fn &optional ARG)
(defalias 'narrow-to-page #[256 "\211\203\n \301!\202 \302\262\212~\210\211\302V\203 \303!\210\202A \211\302W\203A \302`\212\304 \210\305!\2036 \302\225=\2049 \306\262)\303Z!\266\307\310!\210\303 \210\302\224\203] \212\302\224b\210\305!)\203] \302\224b\210`\303\311!\210l\203m o\204m \306y\210`})\207" [page-delimiter prefix-numeric-value 0 forward-page beginning-of-line looking-at 1 set-match-data nil -1] 6 (#$ . 1700) "P"])
(put 'narrow-to-page 'disabled t)
#@264 Return a list of line counts on the current page.
The list is on the form (TOTAL BEFORE AFTER), where TOTAL is the
total number of lines on the current page, while BEFORE and AFTER
are the number of lines on the current page before and after
point, respectively.
(defalias 'page--count-lines-page #[0 "\212`\301 \210\302 \210\303!\204 \304\210`\305 \210\306`\"\306`\"\306\"E\262\262)\207" [page-delimiter forward-page beginning-of-line looking-at nil backward-page count-lines] 7 (#$ . 2379)])
#@81 Report number of lines on current page, and how many are before or after point.
(defalias 'count-lines-page #[0 "\300 \211@A\211@A\211@A\301\302\303\304#$\266\203\207" [page--count-lines-page message ngettext "Page has %d line (%d + %d)" "Page has %d lines (%d + %d)"] 15 (#$ . 2888) nil])
#@53 Return a list of the page and line number of point.
(defalias 'page--what-page #[0 "\214~\210\212\301`eb\210\302\303#\203# \304\224\304\225U\203 \305u\210T\262\202 \306!D\266\202*\207" [page-delimiter 1 re-search-forward t 0 nil line-number-at-pos] 6 (#$ . 3196)])
#@38 Print page and line number of point.
(defalias 'what-page #[0 "\300\301\302\303 B\"\207" [apply message "Page %d, line %d" page--what-page] 4 (#$ . 3475) nil])
(provide 'page)
Mini Shell