Silence ispell.el compilation.

* lisp/textmodes/ispell.el (ispell-init-process): On Emacs, always use
set-process-query-on-exit-flag.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ac2b8f484fa..52af63f7b20 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index b75b232b43c..eab64fbc432 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -2740,9 +2740,11 @@ Keeps argument list for future ispell invocations for no async support."
         (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)