comparison lisp/faces.el @ 31756:095cc7f7e024

(mode-line, tool-bar): Merge entries for `x' and `w32'.
author Miles Bader <miles@gnu.org>
date Wed, 20 Sep 2000 08:45:34 +0000
parents 7d6ee5c362b2
children af7fbf03c35c
comparison
equal deleted inserted replaced
31755:e3d01cb9b018 31756:095cc7f7e024
1514 "Basic default face." 1514 "Basic default face."
1515 :group 'basic-faces) 1515 :group 'basic-faces)
1516 1516
1517 1517
1518 (defface mode-line 1518 (defface mode-line
1519 '((((type x) (class color)) 1519 '((((type x w32) (class color))
1520 (:box (:line-width 2 :style released-button)
1521 :background "grey75" :foreground "black"))
1522 (((type w32) (class color))
1523 (:box (:line-width 2 :style released-button) 1520 (:box (:line-width 2 :style released-button)
1524 :background "grey75" :foreground "black")) 1521 :background "grey75" :foreground "black"))
1525 (t 1522 (t
1526 (:inverse-video t))) 1523 (:inverse-video t)))
1527 "Basic mode line face." 1524 "Basic mode line face."
1553 :version "21.1" 1550 :version "21.1"
1554 :group 'basic-faces) 1551 :group 'basic-faces)
1555 1552
1556 1553
1557 (defface tool-bar 1554 (defface tool-bar
1558 '((((type x) (class color)) 1555 '((((type x w32) (class color))
1559 (:box (:line-width 1 :style released-button) 1556 (:box (:line-width 1 :style released-button)
1560 :background "grey75" :foreground "black")) 1557 :background "grey75" :foreground "black"))
1561 (((type x) (class mono)) 1558 (((type x) (class mono))
1562 (:box (:line-width 1 :style released-button) 1559 (:box (:line-width 1 :style released-button)
1563 :background "grey" :foreground "black")) 1560 :background "grey" :foreground "black"))
1564 (((type w32) (class color))
1565 (:box (:line-width 1 :style released-button)
1566 :background "grey75" :foreground "black"))
1567 (t 1561 (t
1568 ())) 1562 ()))
1569 "Basic tool-bar face." 1563 "Basic tool-bar face."
1570 :version "21.1" 1564 :version "21.1"
1571 :group 'basic-faces) 1565 :group 'basic-faces)