From: Leo Liu <sdl.web@gmail.com>
Date: Thu, 7 Apr 2016 13:42:40 +0000 (+0800)
Subject: Fix "Beginning of buffer" error in forward-page
X-Git-Tag: emacs-25.0.93~63
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=96d9e78;p=emacs.git

Fix "Beginning of buffer" error in forward-page

* lisp/textmodes/page.el (forward-page): Check before move to prevent
  "Beginning of buffer" error.
---

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)