| Current Path : /usr/share/emacs/24.3/lisp/textmodes/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/textmodes/page.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:51 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/textmodes/page.el ;;; in Emacs version 24.3 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@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\205e o?\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 (#$ . 556) "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 (#$ . 1089) "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 (#$ . 1365) "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\203m o\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 (#$ . 1798) "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 (#$ . 2472) nil]) #@38 Print page and line number of point. (defalias 'what-page #[nil "\214~\210\212\303`eb\210\304\n\305#\203$ \306\224\306\225U\203 \303u\210 T\202 \307\310 \311!#,\207" [opoint count page-delimiter 1 re-search-forward t 0 message "Page %d, line %d" line-number-at-pos] 5 (#$ . 2908) nil]) (provide 'page)