Mercurial > emacs
comparison lisp/faces.el @ 22152:3aff676c3ea3
(frame-background-mode): Define a :set function
to update the background mode of existing frames.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 20 May 1998 00:40:19 +0000 |
| parents | 0e8886335c4b |
| children | d06567759809 |
comparison
equal
deleted
inserted
replaced
| 22151:a48831a21513 | 22152:3aff676c3ea3 |
|---|---|
| 1430 "*The brightness of the background. | 1430 "*The brightness of the background. |
| 1431 Set this to the symbol dark if your background color is dark, light if | 1431 Set this to the symbol dark if your background color is dark, light if |
| 1432 your background is light, or nil (default) if you want Emacs to | 1432 your background is light, or nil (default) if you want Emacs to |
| 1433 examine the brightness for you." | 1433 examine the brightness for you." |
| 1434 :group 'faces | 1434 :group 'faces |
| 1435 :set #'(lambda (var value) | |
| 1436 (set var value) | |
| 1437 (mapcar 'frame-set-background-mode (frame-list))) | |
| 1438 :initialize 'custom-initialize-changed | |
| 1435 :type '(choice (choice-item dark) | 1439 :type '(choice (choice-item dark) |
| 1436 (choice-item light) | 1440 (choice-item light) |
| 1437 (choice-item :tag "default" nil))) | 1441 (choice-item :tag "default" nil))) |
| 1438 | 1442 |
| 1439 (defun frame-set-background-mode (frame) | 1443 (defun frame-set-background-mode (frame) |