Mercurial > hg > xemacs-beta
comparison lisp/prim/faces.el @ 193:f53b5ca2e663 r20-3b23
Import from CVS: tag r20-3b23
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:58:30 +0200 |
| parents | 6075d714658b |
| children | acd284d43ca1 |
comparison
equal
deleted
inserted
replaced
| 192:9d35321dd38c | 193:f53b5ca2e663 |
|---|---|
| 1444 "Face for the selected list item in list-mode.") | 1444 "Face for the selected list item in list-mode.") |
| 1445 (make-face 'highlight "highlight face") | 1445 (make-face 'highlight "highlight face") |
| 1446 (make-face 'primary-selection) | 1446 (make-face 'primary-selection) |
| 1447 (make-face 'secondary-selection) | 1447 (make-face 'secondary-selection) |
| 1448 | 1448 |
| 1449 (loop for color in '("red" "green" "blue" "yellow") do | 1449 ;; The loop macro isn't defined until loaddefs.el is read |
| 1450 (make-face (intern color) (concat color " text")) | 1450 ;;(loop for color in '("red" "green" "blue" "yellow") do |
| 1451 (set-face-foreground (intern color) color nil 'color)) | 1451 ;; (make-face (intern color) (concat color " text")) |
| 1452 ;; (set-face-foreground (intern color) color nil 'color)) | |
| 1453 (make-face 'red "red text") | |
| 1454 (set-face-foreground 'red "red" nil 'color) | |
| 1455 (make-face 'green "green text") | |
| 1456 (set-face-foreground 'green "green" nil 'color) | |
| 1457 (make-face 'blue "blue text") | |
| 1458 (set-face-foreground 'blue "blue" nil 'color) | |
| 1459 (make-face 'yellow "yellow text") | |
| 1460 (set-face-foreground 'yellow "yellow" nil 'color) | |
| 1461 | |
| 1452 | 1462 |
| 1453 ;; Make some useful faces. This happens very early, before creating | 1463 ;; Make some useful faces. This happens very early, before creating |
| 1454 ;; the first non-stream device. We initialize the tty global values here. | 1464 ;; the first non-stream device. We initialize the tty global values here. |
| 1455 ;; We cannot initialize the X global values here because they depend | 1465 ;; We cannot initialize the X global values here because they depend |
| 1456 ;; on having already resourced the global face specs, which happens | 1466 ;; on having already resourced the global face specs, which happens |