diff options
| author | Leo Liu <sdl.web@gmail.com> | 2016-04-07 21:42:40 +0800 |
|---|---|---|
| committer | Leo Liu <sdl.web@gmail.com> | 2016-04-07 21:42:40 +0800 |
| commit | 96d9e78bd40edff9c901eee1c95ea56d93b55acb (patch) | |
| tree | 83d8d35b2206f56fb89600693a9011e01d08d9c9 /lisp/textmodes/page.el | |
| parent | 20686f7a6430ef37f17b3866f14e7dc3095c1524 (diff) | |
| download | emacs-96d9e78bd40edff9c901eee1c95ea56d93b55acb.tar.gz | |
Fix "Beginning of buffer" error in forward-page
* lisp/textmodes/page.el (forward-page): Check before move to prevent
"Beginning of buffer" error.
Diffstat (limited to 'lisp/textmodes/page.el')
| -rw-r--r-- | lisp/textmodes/page.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/textmodes/page.el b/lisp/textmodes/page.el index 17fda677754..22c73591b91 100644 --- a/lisp/textmodes/page.el +++ b/lisp/textmodes/page.el @@ -48,12 +48,13 @@ A page boundary is any line whose beginning matches the regexp (and (save-excursion (re-search-backward page-delimiter nil t)) (= (match-end 0) (point)) (goto-char (match-beginning 0))) - (forward-char -1) - (if (re-search-backward page-delimiter nil t) - ;; We found one--move to the end of it. - (goto-char (match-end 0)) - ;; We found nothing--go to beg of buffer. - (goto-char (point-min))) + (unless (bobp) + (forward-char -1) + (if (re-search-backward page-delimiter nil t) + ;; We found one--move to the end of it. + (goto-char (match-end 0)) + ;; We found nothing--go to beg of buffer. + (goto-char (point-min)))) (setq count (1+ count)))) (defun backward-page (&optional count) |