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))