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 | |
| parent | e8bce0a9b6c15f10743b003aa11c150f3d1429a8 (diff) | |
(frame-set-background-mode): `unspecified' &c are symbols, not strings.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/faces.el | 8 |
2 files changed, 10 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7ece3de69aa..9e08f40ecc9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-10-19 Miles Bader <miles@lsi.nec.co.jp> + + * faces.el (frame-set-background-mode): `unspecified' &c are + symbols, not strings. + 2000-10-19 Eli Zaretskii <eliz@is.elta.co.il> * term/tty-colors.el (color-name-rgb-alist): Add a comment 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 |