From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 10 Sep 2005 15:22:29 +0000 (+0000)
Subject: (narrow-to-page): Exclude _entire_ multi-line delimiter	from the region
X-Git-Tag: emacs-pretest-22.0.90~7170
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e43543032f5cc902caaed55ac7191f586d9e74b;p=emacs.git

(narrow-to-page): Exclude _entire_ multi-line delimiter	from the region
narrowed to.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ba777467eb6..a019c5a9f08 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-09-10  Alan Mackenzie  <acm@muc.de>
+
+	* page.el (narrow-to-page): Exclude _entire_ multi-line delimiter
+	from the region narrowed to.
+
 2005-09-10  Magnus Henoch  <mange@freemail.hu>
 
 	* textmodes/ispell.el (ispell-check-version): Signal an error if
diff --git a/lisp/textmodes/page.el b/lisp/textmodes/page.el
index ffb4c89f2db..3ec1eca1fb7 100644
--- a/lisp/textmodes/page.el
+++ b/lisp/textmodes/page.el
@@ -112,7 +112,7 @@ thus showing a page other than the one point was originally in."
 	     (save-excursion
 	       (goto-char (match-beginning 0)) ; was (beginning-of-line)
 	       (looking-at page-delimiter)))
-	(beginning-of-line))
+	(goto-char (match-beginning 0))) ; was (beginning-of-line)
     (narrow-to-region (point)
 		      (progn
 			;; Find the top of the page.