diff options
author | Miles Bader <miles@gnu.org> | 2000-10-19 08:37:11 +0000 |
---|---|---|
committer | Miles Bader <miles@gnu.org> | 2000-10-19 08:37:11 +0000 |
commit | d8abcd91a3b2d7c86b4cc8e4da3372f3b89a8f24 (patch) | |
tree | 9e7872d5aa0e863f977835912d9b570c278291d9 /lisp/faces.el | |
parent | e8bce0a9b6c15f10743b003aa11c150f3d1429a8 (diff) |
(frame-set-background-mode): `unspecified' &c are symbols, not strings.
Diffstat (limited to 'lisp/faces.el')
-rw-r--r-- | lisp/faces.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index f4bd0eee9ce..7a5881fb511 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1304,7 +1304,9 @@ this won't have the expected effect." (defun frame-set-background-mode (frame) - "Set up the `background-mode' and `display-type' frame parameters for FRAME." + "Set up display-dependent faces on FRAME. +Display-dependent faces are those which have different definitions +according to the `background-mode' and `display-type' frame parameters." (let* ((bg-resource (and window-system (x-get-resource ".backgroundMode" "BackgroundMode"))) @@ -1318,9 +1320,9 @@ this won't have the expected effect." 'dark) ;; Unspecified frame background color can only happen ;; on tty's. - ((memq bg-color '("unspecified" "unspecified-bg")) + ((memq bg-color '(unspecified unspecified-bg)) 'dark) - ((eq bg-color "unspecified-fg") ; inverted colors + ((eq bg-color 'unspecified-fg) ; inverted colors 'light) ((>= (apply '+ (x-color-values bg-color frame)) ;; Just looking at the screen, colors whose |