# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 939252746 0
# Node ID 099a3776ff002d5118b938d1588e7a4a21683e95
# Parent  f6ac4958f53f203c76f20404142445f3e68ae125
(face-spec-set-match-display): Recognize `type' of
`motif', `lucid', `x-toolkit'.
(menu): New face.

diff -r f6ac4958f53f -r 099a3776ff00 lisp/faces.el
--- 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"