mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

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

Browse Source 
narrowed to.
This commit is contained in:
Eli Zaretskii 2005-09-10 15:22:29 +00:00
parent c10b0abc38
commit 0e43543032
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

2
lisp/textmodes/page.el
View File

@ -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.