From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 10 Sep 2005 15:09:06 +0000 (+0000)
Subject: (ispell-check-version): Signal an error if aspell version is less than 0.60.
X-Git-Tag: emacs-pretest-22.0.90~7171
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c10b0abc3891947ffe2b56ed8228e8d1a8b7c583;p=emacs.git

(ispell-check-version): Signal an error if aspell version is less than 0.60.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d883cbb2236..ba777467eb6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-09-10  Magnus Henoch  <mange@freemail.hu>
+
+	* textmodes/ispell.el (ispell-check-version): Signal an error if
+	aspell version is less than 0.60.
+
 2005-09-10  Pascal Dupuis  <Pascal.Dupuis@esat.kuleuven.be>  (tiny change)
 
 	* progmodes/octave-inf.el (inferior-octave-startup): Resync
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))