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

`motif', `lucid', `x-toolkit'.
(menu): New face.

diff --git a/lisp/faces.el b/lisp/faces.el
index 3edd33ae5464efe80effe51a45ce9b3c9cf768e1..6c7476507d07dff75dbc8aa85e6e7f885a39f847 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -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"