(ispell-highlight-spelling-error): Use

display-color-p, if fboundp, instead of window-system.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3d83e93c255ab018dac6e780ffcbdf671999514e..3b06d34e6ef4a89a87e755c3a1b0ce3a3078d96b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-08-01  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * textmodes/ispell.el (ispell-highlight-spelling-error): Use
+       display-color-p, if fboundp, instead of window-system.
+
 2000-07-31  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * calendar/appt.el (appt-disp-window): Use display-multi-frame-p

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 7a7112aa9d5d35871885b73e7e8cc20069583849..b82a2195601a45cfe265871834074e1e9b34da4e 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -2009,7 +2009,9 @@ The variable `ispell-highlight-face' selects the face to use for highlighting."
    (xemacsp
     (ispell-highlight-spelling-error-xemacs start end highlight))
    ((and (not version18p)
-        (featurep 'faces) window-system)
+        (featurep 'faces)
+        (or (and (fboundp 'display-color-p) (display-color-p))
+            window-system))
     (ispell-highlight-spelling-error-overlay start end highlight))
    (t (ispell-highlight-spelling-error-generic start end highlight refresh))))