comparison lisp/faces.el @ 33447:45961172564e

(face-spec-set-match-display): Revert the change from 2000-10-24. Add a FIXME for after v21.1.
author Eli Zaretskii <eliz@gnu.org>
date Mon, 13 Nov 2000 15:01:48 +0000
parents 21ac2c51ac59
children 900ca3da6e01
comparison
equal deleted inserted replaced
33446:e82b52295dfb 33447:45961172564e
1144 conjuncts (cdr conjuncts) 1144 conjuncts (cdr conjuncts)
1145 req (car conjunct) 1145 req (car conjunct)
1146 options (cdr conjunct) 1146 options (cdr conjunct)
1147 match (cond ((eq req 'type) 1147 match (cond ((eq req 'type)
1148 (or (memq window-system options) 1148 (or (memq window-system options)
1149 (if (display-graphic-p frame) 1149 ;; FIXME: This should be revisited to use
1150 (memq 'graphic options) 1150 ;; display-graphic-p, provided that the
1151 (memq 'tty options)) 1151 ;; color selection depends on the number
1152 ;; of supported colors, and all defface's
1153 ;; are changed to look at number of colors
1154 ;; instead of (type graphic) etc.
1155 (and (null window-system)
1156 (memq 'tty options))
1152 (and (memq 'motif options) 1157 (and (memq 'motif options)
1153 (featurep 'motif)) 1158 (featurep 'motif))
1154 (and (memq 'lucid options) 1159 (and (memq 'lucid options)
1155 (featurep 'x-toolkit) 1160 (featurep 'x-toolkit)
1156 (not (featurep 'motif))) 1161 (not (featurep 'motif)))