Commit ee716db5 authored by Gerd Moellmann's avatar Gerd Moellmann

(face-spec-set-match-display): Recognize `type' of

`motif', `lucid', `x-toolkit'.
(menu): New face.
parent f5737ad2
......@@ -1047,7 +1047,14 @@ If FRAME is nil, the current FRAME is used."
match (cond ((eq req 'type)
(or (memq window-system options)
(and (null window-system)
(memq 'tty options))))
(memq 'tty options))
(and (memq 'motif options)
(featurep 'motif))
(and (memq 'lucid options)
(featurep 'x-toolkit)
(not (featurep 'motif)))
(and (memq 'x-toolkit options)
(featurep 'x-toolkit))))
((eq req 'class)
(memq (frame-parameter frame 'display-type) options))
((eq req 'background)
......@@ -1427,6 +1434,14 @@ created."
:group 'basic-faces)
(defface menu
'((((type x-toolkit)) ())
(t (:inverse-video t)))
"Basic menu face."
:version "21.1"
:group 'basic-faces)
(defface border '()
"Basic face for the frame border under X."
:version "21.1"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment