Mercurial > emacs
comparison lisp/cus-edit.el @ 29879:61b75f20b058
(custom-button-face, custom-button-pressed-face):
Specify foreground color.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 23 Jun 2000 05:56:08 +0000 |
| parents | 8c4512ba3671 |
| children | aa305b5e66ed |
comparison
equal
deleted
inserted
replaced
| 29878:dc466af33ca4 | 29879:61b75f20b058 |
|---|---|
| 1695 | 1695 |
| 1696 ;;; The `custom' Widget. | 1696 ;;; The `custom' Widget. |
| 1697 | 1697 |
| 1698 (defface custom-button-face | 1698 (defface custom-button-face |
| 1699 '((((type x) (class color)) ; Like default modeline | 1699 '((((type x) (class color)) ; Like default modeline |
| 1700 (:box (:line-width 2 :style released-button) :background "lightgrey")) | 1700 (:box (:line-width 2 :style released-button) |
| 1701 :background "lightgrey" :foreground "black")) | |
| 1701 (((type w32) (class color)) ; Like default modeline | 1702 (((type w32) (class color)) ; Like default modeline |
| 1702 (:box (:line-width 2 :style released-button) :background "lightgrey")) | 1703 (:box (:line-width 2 :style released-button) |
| 1704 :background "lightgrey" :foreground "black")) | |
| 1703 (t | 1705 (t |
| 1704 nil)) | 1706 nil)) |
| 1705 "Face used for buttons in customization buffers." | 1707 "Face used for buttons in customization buffers." |
| 1706 :version "21.1" | 1708 :version "21.1" |
| 1707 :group 'custom-faces) | 1709 :group 'custom-faces) |
| 1708 | 1710 |
| 1709 (defface custom-button-pressed-face | 1711 (defface custom-button-pressed-face |
| 1710 '((((type x) (class color)) | 1712 '((((type x) (class color)) |
| 1711 (:box (:line-width 2 :style pressed-button) :background "lightgrey")) | 1713 (:box (:line-width 2 :style pressed-button) |
| 1714 :background "lightgrey" :foreground "black")) | |
| 1712 (((type w32) (class color)) | 1715 (((type w32) (class color)) |
| 1713 (:box (:line-width 2 :style pressed-button) :background "lightgrey")) | 1716 (:box (:line-width 2 :style pressed-button) |
| 1717 :background "lightgrey" :foreground "black")) | |
| 1714 (t | 1718 (t |
| 1715 (:inverse-video t))) | 1719 (:inverse-video t))) |
| 1716 "Face used for buttons in customization buffers." | 1720 "Face used for buttons in customization buffers." |
| 1717 :version "21.1" | 1721 :version "21.1" |
| 1718 :group 'custom-faces) | 1722 :group 'custom-faces) |