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 |