;;; page.el --- page motion commands for Emacs
-;; Copyright (C) 1985, 2001-2012 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 2001-2016 Free Software Foundation, Inc.
-;; Maintainer: FSF
+;; Maintainer: emacs-devel@gnu.org
;; Keywords: wp convenience
;; Package: emacs
(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)