(frame-set-background-mode): `unspecified' &c are symbols, not strings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ece3de69aa14ef1bbef3a2e8c7add2796396f0d..9e08f40ecc9c167f2f7ccf48844825a8903aed48 100644 (file)
--- 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 f4bd0eee9cea8241913c318b17aaf077d1de2467..7a5881fb5113870f9a17dbce23566cfb55394dc7 100644 (file)
--- 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