[Emacs-diffs] /srv/bzr/emacs/trunk r102237: Silence ispell.el compilation.

[Glenn Morris]

------------------------------------------------------------
revno: 102237
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2010-11-03 00:42:27 -0700
message:
  Silence ispell.el compilation.
  * lisp/textmodes/ispell.el (ispell-init-process): On Emacs, always use
  set-process-query-on-exit-flag.
modified:
  lisp/ChangeLog
  lisp/textmodes/ispell.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-03 07:20:03 +0000
+++ b/lisp/ChangeLog    2010-11-03 07:42:27 +0000
@@ -1,5 +1,8 @@
 2010-11-03  Glenn Morris  <address@hidden>
 
+       * 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.

=== modified file 'lisp/textmodes/ispell.el'
--- a/lisp/textmodes/ispell.el  2010-11-01 05:55:40 +0000
+++ b/lisp/textmodes/ispell.el  2010-11-03 07:42:27 +0000
@@ -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)