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

d8abcd91 · Miles Bader · e8bce0a9 · d8abcd91 · d8abcd91
Commit d8abcd91 authored Oct 19, 2000 by Miles Bader
Hide whitespace changes
Inline Side-by-side

Showing with 10 additions and 3 deletions

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/faces.el lisp/faces.el +5 -3

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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

--- 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