Lines Matching defs:page
0 ;;; page.el --- page motion commands for Emacs
28 ;; This code provides the page-oriented movement and selection commands
33 (defun forward-page (&optional count)
34 "Move forward to page boundary. With arg, repeat, or go back if negative.
35 A page boundary is any line whose beginning matches the regexp
36 `page-delimiter'."
40 ;; In case the page-delimiter matches the null string,
43 (if (re-search-forward page-delimiter nil t)
48 ;; In case the page-delimiter matches the null string,
50 (and (save-excursion (re-search-backward page-delimiter nil t))
54 (if (re-search-backward page-delimiter nil t)
61 (defun backward-page (&optional count)
62 "Move backward to page boundary. With arg, repeat, or go fwd if negative.
63 A page boundary is any line whose beginning matches the regexp
64 `page-delimiter'."
67 (forward-page (- count)))
69 (defun mark-page (&optional arg)
70 "Put mark at end of page, point at beginning.
72 thus marking a page other than the one point was originally in."
76 (forward-page arg)
78 (forward-page (1- arg))))
79 (forward-page)
81 (forward-page -1))
83 (defun narrow-to-page (&optional arg)
84 "Make text outside current page invisible.
86 thus showing a page other than the one point was originally in."
92 (forward-page arg)
96 ;; If we are not now at the beginning of a page,
97 ;; move back one extra time, to get to the start of this page.
100 (or (and (looking-at page-delimiter)
103 (forward-page (- arg adjust)))))
104 ;; Find the end of the page.
106 (forward-page)
108 ;; If we stopped after a page delimiter, put end of restriction
111 ;; verify that forward-page actually set the match data.
115 (looking-at page-delimiter)))
119 ;; Find the top of the page.
120 (forward-page -1)
122 ;; If extra text follows page delimiter on same line,
128 (put 'narrow-to-page 'disabled t)
130 (defun count-lines-page ()
131 "Report number of lines on current page, and how many are before or after point."
136 (forward-page)
138 (or (looking-at page-delimiter)
141 (backward-page)
148 (defun what-page ()
149 "Print page and line number of point."
158 (while (re-search-forward page-delimiter opoint t)
166 (provide 'page)
169 ;;; page.el ends here