Mercurial > emacs
comparison lisp/faces.el @ 31528:a461cad7a942
(face-x-resources): Make custom type more specific.
(frame-background-mode): Use mapc.
(region) <defcustom>: Add :version.
author | Dave Love <fx@gnu.org> |
---|---|
date | Sun, 10 Sep 2000 21:55:22 +0000 |
parents | 33b9a5b2a3bc |
children | 08829d842312 |
comparison
equal
deleted
inserted
replaced
31527:aa909bf77781 | 31528:a461cad7a942 |
---|---|
23 ;;; Commentary: | 23 ;;; Commentary: |
24 | 24 |
25 ;;; Code: | 25 ;;; Code: |
26 | 26 |
27 (eval-when-compile | 27 (eval-when-compile |
28 (require 'cl)) | 28 (require 'cl) |
29 ;; Warning suppression -- can't require x-win in batch: | |
30 (autoload 'xw-defined-colors "x-win")) | |
29 | 31 |
30 (require 'cus-face) | 32 (require 'cus-face) |
31 | 33 |
32 | 34 |
33 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 35 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
272 "*List of X resources and classes for face attributes. | 274 "*List of X resources and classes for face attributes. |
273 Each element has the form (ATTRIBUTE ENTRY1 ENTRY2...) where ATTRIBUTE is | 275 Each element has the form (ATTRIBUTE ENTRY1 ENTRY2...) where ATTRIBUTE is |
274 the name of a face attribute, and each ENTRY is a cons of the form | 276 the name of a face attribute, and each ENTRY is a cons of the form |
275 (RESOURCE . CLASS) with RESOURCE being the resource and CLASS being the | 277 (RESOURCE . CLASS) with RESOURCE being the resource and CLASS being the |
276 X resource class for the attribute." | 278 X resource class for the attribute." |
277 :type 'sexp | 279 :type '(repeat (cons symbol (repeat (cons string string)))) |
278 :group 'faces) | 280 :group 'faces) |
279 | 281 |
280 | 282 |
281 (defun set-face-attribute-from-resource (face attribute resource class frame) | 283 (defun set-face-attribute-from-resource (face attribute resource class frame) |
282 "Set FACE's ATTRIBUTE from X resource RESOURCE, class CLASS on FRAME. | 284 "Set FACE's ATTRIBUTE from X resource RESOURCE, class CLASS on FRAME. |
1288 examine the brightness for you. Don't set this variable with `setq'; | 1290 examine the brightness for you. Don't set this variable with `setq'; |
1289 this won't have the expected effect." | 1291 this won't have the expected effect." |
1290 :group 'faces | 1292 :group 'faces |
1291 :set #'(lambda (var value) | 1293 :set #'(lambda (var value) |
1292 (set-default var value) | 1294 (set-default var value) |
1293 (mapcar 'frame-set-background-mode (frame-list))) | 1295 (mapc 'frame-set-background-mode (frame-list))) |
1294 :initialize 'custom-initialize-changed | 1296 :initialize 'custom-initialize-changed |
1295 :type '(choice (choice-item dark) | 1297 :type '(choice (choice-item dark) |
1296 (choice-item light) | 1298 (choice-item light) |
1297 (choice-item :tag "default" nil))) | 1299 (choice-item :tag "default" nil))) |
1298 | 1300 |
1566 (:background "blue")) | 1568 (:background "blue")) |
1567 (((class color) (background light)) | 1569 (((class color) (background light)) |
1568 (:background "light goldenrod yellow")) | 1570 (:background "light goldenrod yellow")) |
1569 (t (:background "gray"))) | 1571 (t (:background "gray"))) |
1570 "Basic face for highlighting the region." | 1572 "Basic face for highlighting the region." |
1573 :version "21.1" | |
1571 :group 'basic-faces) | 1574 :group 'basic-faces) |
1572 | 1575 |
1573 | 1576 |
1574 (defface fringe | 1577 (defface fringe |
1575 '((((class color) (background light)) | 1578 '((((class color) (background light)) |