Mercurial > emacs

comparison lisp/textmodes/page.el @ 236:25644943fb13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Wed, 10 Apr 1991 16:36:47 +0000
parents 9697c13298e5
children 505130d1ddf8
comparison
equal deleted inserted replaced
235:c7cad852d5b4 236:25644943fb13
18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
19 19
20 20
21 (defun forward-page (&optional count) 21 (defun forward-page (&optional count)
22 "Move forward to page boundary. With arg, repeat, or go back if negative. 22 "Move forward to page boundary. With arg, repeat, or go back if negative.
23 A page boundary is any line whose beginning matches the regexp page-delimiter." 23 A page boundary is any line whose beginning matches the regexp
24 `page-delimiter'."
24 (interactive "p") 25 (interactive "p")
25 (or count (setq count 1)) 26 (or count (setq count 1))
26 (while (and (> count 0) (not (eobp))) 27 (while (and (> count 0) (not (eobp)))
27 (if (re-search-forward page-delimiter nil t) 28 (if (re-search-forward page-delimiter nil t)
28 nil 29 nil
35 (goto-char (point-min))) 36 (goto-char (point-min)))
36 (setq count (1+ count)))) 37 (setq count (1+ count))))
37 38
38 (defun backward-page (&optional count) 39 (defun backward-page (&optional count)
39 "Move backward to page boundary. With arg, repeat, or go fwd if negative. 40 "Move backward to page boundary. With arg, repeat, or go fwd if negative.
40 A page boundary is any line whose beginning matches the regexp page-delimiter." 41 A page boundary is any line whose beginning matches the regexp
42 `page-delimiter'."
41 (interactive "p") 43 (interactive "p")
42 (or count (setq count 1)) 44 (or count (setq count 1))
43 (forward-page (- count))) 45 (forward-page (- count)))
44 46
45 (defun mark-page (&optional arg) 47 (defun mark-page (&optional arg)