Mercurial > emacs
comparison lisp/faces.el @ 22233:d06567759809
(frame-update-face-colors): Call frame-set-background-mode.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 25 May 1998 18:37:10 +0000 |
| parents | 3aff676c3ea3 |
| children | 2806e56a2aae |
comparison
equal
deleted
inserted
replaced
| 22232:96217e8a9b7f | 22233:d06567759809 |
|---|---|
| 1472 | 1472 |
| 1473 ;; Update the colors of FACE, after FRAME's own colors have been changed. | 1473 ;; Update the colors of FACE, after FRAME's own colors have been changed. |
| 1474 ;; This applies only to faces with global color specifications | 1474 ;; This applies only to faces with global color specifications |
| 1475 ;; that are not simple constants. | 1475 ;; that are not simple constants. |
| 1476 (defun frame-update-face-colors (frame) | 1476 (defun frame-update-face-colors (frame) |
| 1477 (frame-set-background-mode frame) | |
| 1477 (let ((faces global-face-data)) | 1478 (let ((faces global-face-data)) |
| 1478 (while faces | 1479 (while faces |
| 1479 (condition-case nil | 1480 (condition-case nil |
| 1480 (let* ((data (cdr (car faces))) | 1481 (let* ((data (cdr (car faces))) |
| 1481 (face (car (car faces))) | 1482 (face (car (car faces))) |