Mercurial > emacs
comparison lisp/faces.el @ 25542:047532b73119
(tool-bar): Change face `toolbar' to `tool-bar'.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Sun, 05 Sep 1999 15:48:38 +0000 |
parents | 170d491fe703 |
children | b0a117037bde |
comparison
equal
deleted
inserted
replaced
25541:be975dcf4a0c | 25542:047532b73119 |
---|---|
1322 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 1322 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1323 ;;; Standard faces. | 1323 ;;; Standard faces. |
1324 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 1324 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1325 | 1325 |
1326 ;; Make the standard faces. The C code knows faces `default', | 1326 ;; Make the standard faces. The C code knows faces `default', |
1327 ;; `modeline', `toolbar' and `region', so they must be the first faces | 1327 ;; `modeline', `tool-bar' and `region', so they must be the first faces |
1328 ;; made. Unspecified attributes of these three faces are filled-in | 1328 ;; made. Unspecified attributes of these three faces are filled-in |
1329 ;; from frame parameters in the C code. | 1329 ;; from frame parameters in the C code. |
1330 | 1330 |
1331 (defgroup basic-faces nil | 1331 (defgroup basic-faces nil |
1332 "The standard faces of Emacs." | 1332 "The standard faces of Emacs." |
1355 (:inverse-video t))) | 1355 (:inverse-video t))) |
1356 "Basic top line face." | 1356 "Basic top line face." |
1357 :group 'basic-faces) | 1357 :group 'basic-faces) |
1358 | 1358 |
1359 | 1359 |
1360 (defface toolbar | 1360 (defface tool-bar |
1361 '((((type x) (class color)) | 1361 '((((type x) (class color)) |
1362 (:box (:line-width 1 :style released-button) :background "grey75")) | 1362 (:box (:line-width 1 :style released-button) :background "grey75")) |
1363 (((type x) (class mono)) | 1363 (((type x) (class mono)) |
1364 (:box (:line-width 1 :style released-button) :background "grey")) | 1364 (:box (:line-width 1 :style released-button) :background "grey")) |
1365 (t | 1365 (t |
1366 ())) | 1366 ())) |
1367 "Basic toolbar face." | 1367 "Basic tool-bar face." |
1368 :group 'basic-faces) | 1368 :group 'basic-faces) |
1369 | 1369 |
1370 | 1370 |
1371 (defface region | 1371 (defface region |
1372 '((((type tty) (class color)) | 1372 '((((type tty) (class color)) |