diff options
| author | Jim Blandy | 1991-04-10 16:36:47 +0000 |
|---|---|---|
| committer | Jim Blandy | 1991-04-10 16:36:47 +0000 |
| commit | fa8a7944be3a84d85f085ff4eedba8225c7ebbc8 (patch) | |
| tree | 45feb2135233ffb19367fad371a7db6f63cdec4f | |
| parent | 0d2d639ad94ab5682b436bb30e5a33f5972de9b6 (diff) | |
| download | emacs-fa8a7944be3a84d85f085ff4eedba8225c7ebbc8.tar.gz emacs-fa8a7944be3a84d85f085ff4eedba8225c7ebbc8.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/textmodes/page.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/textmodes/page.el b/lisp/textmodes/page.el index 19b29d02f08..576e23a7560 100644 --- a/lisp/textmodes/page.el +++ b/lisp/textmodes/page.el | |||
| @@ -20,7 +20,8 @@ | |||
| 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))) |
| @@ -37,7 +38,8 @@ A page boundary is any line whose beginning matches the regexp page-delimiter." | |||
| 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))) |