# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1288770147 25200
# Node ID 414281a5ab3cfe56e69afb7d29b14ec30cb9aea4
# Parent  96c3de40fa1b6bce0b715d7d377e61fe0f857ecb
Silence ispell.el compilation.
* lisp/textmodes/ispell.el (ispell-init-process): On Emacs, always use
set-process-query-on-exit-flag.

diff -r 96c3de40fa1b -r 414281a5ab3c lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Nov 03 00:20:03 2010 -0700
+++ b/lisp/ChangeLog	Wed Nov 03 00:42:27 2010 -0700
@@ -1,5 +1,8 @@
 2010-11-03  Glenn Morris  <rgm@gnu.org>
 
+	* textmodes/ispell.el (ispell-init-process): On Emacs, always use
+	set-process-query-on-exit-flag.
+
 	* textmodes/reftex-toc.el (name1, dummy, dummy2): Remove unused decs.
 
 	* net/dbus.el (dbus-name-owner-changed-handler): Doc fix.
diff -r 96c3de40fa1b -r 414281a5ab3c lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Wed Nov 03 00:20:03 2010 -0700
+++ b/lisp/textmodes/ispell.el	Wed Nov 03 00:42:27 2010 -0700
@@ -2740,9 +2740,11 @@
 	(if extended-char-mode		; ~ extended character mode
 	    (ispell-send-string (concat extended-char-mode "\n"))))
       (if ispell-async-processp
-	  (if (fboundp 'set-process-query-on-exit-flag) ;; not XEmacs
+	  (if (featurep 'emacs)
 	      (set-process-query-on-exit-flag ispell-process nil)
-	    (process-kill-without-query ispell-process))))))
+	    (if (fboundp 'set-process-query-on-exit-flag)
+		(set-process-query-on-exit-flag ispell-process nil)
+	      (process-kill-without-query ispell-process)))))))
 
 ;;;###autoload
 (defun ispell-kill-ispell (&optional no-error)