# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 798102711 0
# Node ID 11c4f543b74241b33a7faa7b3cd7a49c9b2a9d76
# Parent  772f49d1969d3dd513145ca2e436d24896c13427
(ispell-init-ispell): Don't barf if there is a
warning message	before the version line when Ispell starts up.

diff -r 772f49d1969d -r 11c4f543b742 lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Mon Apr 17 06:10:39 1995 +0000
+++ b/lisp/textmodes/ispell.el	Mon Apr 17 07:11:51 1995 +0000
@@ -6,6 +6,8 @@
 ;;;
 ;;;
 ;;; Authors         : Ken Stevens <k.stevens@ieee.org>
+;;; Note: version numbers and time stamp are not updated
+;;;   when this file is edited for release with GNU Emacs.
 ;;; Last Modified On: Mon Feb  6 17:39:38 EST 1995
 ;;; Update Revision : 2.36
 ;;; Syntax          : emacs-lisp
@@ -1545,9 +1547,14 @@
     (accept-process-output ispell-process) ; Get version ID line
     (cond ((null ispell-filter)
 	   (error "%s did not output version line" ispell-program-name))
-	  ((and (null (cdr ispell-filter))
-		(stringp (car ispell-filter))
-		(string-match "^@(#) " (car ispell-filter)))
+	  ((and
+	    (stringp (car ispell-filter))
+	    (if (string-match "warning: " (car ispell-filter))
+		(progn
+		  (accept-process-output ispell-process 5) ; 1st was warn msg.
+		  (stringp (car ispell-filter)))
+	      (null (cdr ispell-filter)))
+	    (string-match "^@(#) " (car ispell-filter)))
 	   ;; got the version line as expected (we already know it's the right
 	   ;; version, so don't bother checking again.)
 	   nil)