From 0e43543032f5cc902caaed55ac7191f586d9e74b Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 10 Sep 2005 15:22:29 +0000 Subject: [PATCH] (narrow-to-page): Exclude _entire_ multi-line delimiter from the region narrowed to. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/page.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * page.el (narrow-to-page): Exclude _entire_ multi-line delimiter + from the region narrowed to. + 2005-09-10 Magnus Henoch * 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. -- 2.39.5