# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 807099035 0
# Node ID 968d38f57f3a81c4be6c0cafd797ccb651b4969d
# Parent  c3cb2b06e05f7466b75814d0662b1e5a32c594b4
(set-face-background): Don't treat nil as a color.

diff -r c3cb2b06e05f -r 968d38f57f3a lisp/faces.el
--- a/lisp/faces.el	Sun Jul 30 07:08:49 1995 +0000
+++ b/lisp/faces.el	Sun Jul 30 10:10:35 1995 +0000
@@ -149,7 +149,7 @@
   (interactive (internal-face-interactive "background"))
   ;; For a specific frame, use gray stipple instead of gray color
   ;; if the display does not support a gray color.
-  (if (and frame (not (eq frame t))
+  (if (and frame (not (eq frame t)) color
 	   (not (face-color-supported-p frame color t)))
       (set-face-stipple face face-default-stipple frame)
     (if (null frame)