From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 1 Aug 2000 06:25:13 +0000 (+0000)
Subject: (ispell-highlight-spelling-error): Use
X-Git-Tag: emacs-pretest-21.0.90~2530
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b5fab8756279e0b37020ad1da13cc24b5f0cff5;p=emacs.git

(ispell-highlight-spelling-error): Use
display-color-p, if fboundp, instead of window-system.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3d83e93c255..3b06d34e6ef 100644
--- 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 7a7112aa9d5..b82a2195601 100644
--- 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))))