summaryrefslogtreecommitdiff
path: root/lisp/textmodes
diff options
context:
space:
mode:
authorLeo Liu <sdl.web@gmail.com>2016-04-07 21:42:40 +0800
committerLeo Liu <sdl.web@gmail.com>2016-04-07 21:42:40 +0800
commit96d9e78bd40edff9c901eee1c95ea56d93b55acb (patch)
tree83d8d35b2206f56fb89600693a9011e01d08d9c9 /lisp/textmodes
parent20686f7a6430ef37f17b3866f14e7dc3095c1524 (diff)
downloademacs-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')
-rw-r--r--lisp/textmodes/page.el13
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)