From c10b0abc3891947ffe2b56ed8228e8d1a8b7c583 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 10 Sep 2005 15:09:06 +0000 Subject: (ispell-check-version): Signal an error if aspell version is less than 0.60. --- lisp/textmodes/ispell.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lisp/textmodes') diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 8bd8ed2d692..acd27d69c46 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -814,7 +814,10 @@ Otherwise returns the library directory name, if that is defined." (goto-char (point-min)) (let (case-fold-search) (setq ispell-really-aspell - (and (search-forward "(but really Aspell " nil t) t)))) + (and (search-forward-regexp "(but really Aspell \\(.*\\))" nil t) + (if (version< (match-string 1) "0.60") + (error "aspell version 0.60 or greater is required") + t))))) (kill-buffer (current-buffer))) result)) -- cgit v1.2.3 From 0e43543032f5cc902caaed55ac7191f586d9e74b Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 10 Sep 2005 15:22:29 +0000 Subject: (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(-) (limited to 'lisp/textmodes') 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. -- cgit v1.2.3