Mercurial > emacs
changeset 25887:099a3776ff00
(face-spec-set-match-display): Recognize `type' of
`motif', `lucid', `x-toolkit'.
(menu): New face.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 06 Oct 1999 23:32:26 +0000 |
| parents | f6ac4958f53f |
| children | 7144668076c7 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 16 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Wed Oct 06 23:31:49 1999 +0000 +++ b/lisp/faces.el Wed Oct 06 23:32:26 1999 +0000 @@ -1047,7 +1047,14 @@ 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 @@ :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"