Mercurial > emacs
comparison lisp/faces.el @ 25687:afad62240679
(mode-line, header-line, tool-bar, ): Add :version.
(highlight, secondary-selection): Add :group.
(trailing-whitespace): Add :group, :version.
author | Dave Love <fx@gnu.org> |
---|---|
date | Mon, 13 Sep 1999 13:59:58 +0000 |
parents | 8b06b47a1fea |
children | 63094dd28174 |
comparison
equal
deleted
inserted
replaced
25686:c1a7a52bbfea | 25687:afad62240679 |
---|---|
1356 '((((type x) (class color)) | 1356 '((((type x) (class color)) |
1357 (:box (:line-width 2 :style released-button) :background "grey75")) | 1357 (:box (:line-width 2 :style released-button) :background "grey75")) |
1358 (t | 1358 (t |
1359 (:inverse-video t))) | 1359 (:inverse-video t))) |
1360 "Basic mode line face." | 1360 "Basic mode line face." |
1361 :version "21.1" | |
1361 :group 'basic-faces) | 1362 :group 'basic-faces) |
1362 | 1363 |
1363 ;; Make `modeline' an alias for `mode-line', for compatibility. | 1364 ;; Make `modeline' an alias for `mode-line', for compatibility. |
1364 (put 'modeline 'face-alias 'mode-line) | 1365 (put 'modeline 'face-alias 'mode-line) |
1365 | 1366 |
1367 '((((type x) (class color)) | 1368 '((((type x) (class color)) |
1368 (:box (:line-width 2 :style released-button) :background "grey75")) | 1369 (:box (:line-width 2 :style released-button) :background "grey75")) |
1369 (t | 1370 (t |
1370 (:inverse-video t))) | 1371 (:inverse-video t))) |
1371 "Basic header-line face." | 1372 "Basic header-line face." |
1373 :version "21.1" | |
1372 :group 'basic-faces) | 1374 :group 'basic-faces) |
1373 | 1375 |
1374 | 1376 |
1375 (defface tool-bar | 1377 (defface tool-bar |
1376 '((((type x) (class color)) | 1378 '((((type x) (class color)) |
1378 (((type x) (class mono)) | 1380 (((type x) (class mono)) |
1379 (:box (:line-width 1 :style released-button) :background "grey")) | 1381 (:box (:line-width 1 :style released-button) :background "grey")) |
1380 (t | 1382 (t |
1381 ())) | 1383 ())) |
1382 "Basic tool-bar face." | 1384 "Basic tool-bar face." |
1385 :version "21.1" | |
1383 :group 'basic-faces) | 1386 :group 'basic-faces) |
1384 | 1387 |
1385 | 1388 |
1386 (defface region | 1389 (defface region |
1387 '((((type tty) (class color)) | 1390 '((((type tty) (class color)) |
1457 (((class color) (background light)) | 1460 (((class color) (background light)) |
1458 (:background "darkseagreen2")) | 1461 (:background "darkseagreen2")) |
1459 (((class color) (background dark)) | 1462 (((class color) (background dark)) |
1460 (:background "darkolivegreen")) | 1463 (:background "darkolivegreen")) |
1461 (t (:inverse-video t))) | 1464 (t (:inverse-video t))) |
1462 "Basic face for highlighting.") | 1465 "Basic face for highlighting." |
1466 :group 'basic-faces) | |
1463 | 1467 |
1464 | 1468 |
1465 (defface secondary-selection | 1469 (defface secondary-selection |
1466 '((((type tty) (class color)) | 1470 '((((type tty) (class color)) |
1467 (:background "cyan")) | 1471 (:background "cyan")) |
1468 (((class color) (background light)) | 1472 (((class color) (background light)) |
1469 (:background "paleturquoise")) | 1473 (:background "paleturquoise")) |
1470 (((class color) (background dark)) | 1474 (((class color) (background dark)) |
1471 (:background "darkslateblue")) | 1475 (:background "darkslateblue")) |
1472 (t (:inverse-video t))) | 1476 (t (:inverse-video t))) |
1473 "Basic face for displaying the secondary selection.") | 1477 "Basic face for displaying the secondary selection." |
1478 :group 'basic-faces) | |
1474 | 1479 |
1475 | 1480 |
1476 (defface fixed-pitch '((t (:family "courier*"))) | 1481 (defface fixed-pitch '((t (:family "courier*"))) |
1477 "The basic fixed-pitch face." | 1482 "The basic fixed-pitch face." |
1478 :group 'basic-faces) | 1483 :group 'basic-faces) |
1487 '((((class color) (background light)) | 1492 '((((class color) (background light)) |
1488 (:background "red")) | 1493 (:background "red")) |
1489 (((class color) (background dark)) | 1494 (((class color) (background dark)) |
1490 (:background "red")) | 1495 (:background "red")) |
1491 (t (:inverse-video t))) | 1496 (t (:inverse-video t))) |
1492 "Basic face for highlighting trailing whitespace.") | 1497 "Basic face for highlighting trailing whitespace." |
1498 :version "21.1" | |
1499 :group 'basic-faces) | |
1493 | 1500 |
1494 | 1501 |
1495 | 1502 |
1496 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 1503 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1497 ;;; Manipulating font names. | 1504 ;;; Manipulating font names. |