Mercurial > emacs
comparison lisp/faces.el @ 23499:57e5c9aadd19
(frame-set-background-mode): Enable the function for MSDOS frames.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Tue, 20 Oct 1998 16:34:29 +0000 |
| parents | e7be878041d5 |
| children | 82325b2dbb5e |
comparison
equal
deleted
inserted
replaced
| 23498:c42c834e4ef4 | 23499:57e5c9aadd19 |
|---|---|
| 1462 (choice-item light) | 1462 (choice-item light) |
| 1463 (choice-item :tag "default" nil))) | 1463 (choice-item :tag "default" nil))) |
| 1464 | 1464 |
| 1465 (defun frame-set-background-mode (frame) | 1465 (defun frame-set-background-mode (frame) |
| 1466 "Set up the `background-mode' and `display-type' frame parameters for FRAME." | 1466 "Set up the `background-mode' and `display-type' frame parameters for FRAME." |
| 1467 (unless (memq (framep frame) '(t pc)) | 1467 (unless (eq (framep frame) t) |
| 1468 (let ((bg-resource (x-get-resource ".backgroundMode" | 1468 (let ((bg-resource (x-get-resource ".backgroundMode" |
| 1469 "BackgroundMode")) | 1469 "BackgroundMode")) |
| 1470 (params (frame-parameters frame)) | 1470 (params (frame-parameters frame)) |
| 1471 (bg-mode)) | 1471 (bg-mode)) |
| 1472 (setq bg-mode | 1472 (setq bg-mode |