aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/textmodes/ispell.el13
1 files changed, 10 insertions, 3 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 75590e711f5..2dd5f2ac118 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -6,6 +6,8 @@
6;;; 6;;;
7;;; 7;;;
8;;; Authors : Ken Stevens <k.stevens@ieee.org> 8;;; Authors : Ken Stevens <k.stevens@ieee.org>
9;;; Note: version numbers and time stamp are not updated
10;;; when this file is edited for release with GNU Emacs.
9;;; Last Modified On: Mon Feb 6 17:39:38 EST 1995 11;;; Last Modified On: Mon Feb 6 17:39:38 EST 1995
10;;; Update Revision : 2.36 12;;; Update Revision : 2.36
11;;; Syntax : emacs-lisp 13;;; Syntax : emacs-lisp
@@ -1545,9 +1547,14 @@ scrolling the current window. Leave the new window selected."
1545 (accept-process-output ispell-process) ; Get version ID line 1547 (accept-process-output ispell-process) ; Get version ID line
1546 (cond ((null ispell-filter) 1548 (cond ((null ispell-filter)
1547 (error "%s did not output version line" ispell-program-name)) 1549 (error "%s did not output version line" ispell-program-name))
1548 ((and (null (cdr ispell-filter)) 1550 ((and
1549 (stringp (car ispell-filter)) 1551 (stringp (car ispell-filter))
1550 (string-match "^@(#) " (car ispell-filter))) 1552 (if (string-match "warning: " (car ispell-filter))
1553 (progn
1554 (accept-process-output ispell-process 5) ; 1st was warn msg.
1555 (stringp (car ispell-filter)))
1556 (null (cdr ispell-filter)))
1557 (string-match "^@(#) " (car ispell-filter)))
1551 ;; got the version line as expected (we already know it's the right 1558 ;; got the version line as expected (we already know it's the right
1552 ;; version, so don't bother checking again.) 1559 ;; version, so don't bother checking again.)
1553 nil) 1560 nil)