mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

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

Browse Source 
`motif', `lucid', `x-toolkit'.
(menu): New face.
This commit is contained in:
Gerd Moellmann 1999-10-06 23:32:26 +00:00
parent f5737ad232
commit ee716db5e0
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/faces.el
View File

@ -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"