Mercurial > emacs

diff lisp/facemenu.el @ 28111:90875cd704b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use display-color-p.
author Dave Love <fx@gnu.org>
date Sun, 12 Mar 2000 15:27:33 +0000
parents c3e8689514c1
children e3cbe0ccf8c9
line wrap: on
line diff
--- a/lisp/facemenu.el	Sun Mar 12 15:25:35 2000 +0000
+++ b/lisp/facemenu.el	Sun Mar 12 15:27:33 2000 +0000
@@ -614,7 +614,7 @@
   (let ((name (symbol-name symbol))
 	foreground)
     (cond ((internal-find-face symbol))
-	  ((and window-system
+	  ((and (display-color-p)
 		(or (setq foreground (string-match "^fg:" name))
 		    (string-match "^bg:" name)))
 	   (let ((face (make-face symbol))