# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 968421068 0
# Node ID 33b9a5b2a3bcf5a753da6b450bd0ba28daaed4c6
# Parent  3bc3df2053c4fb2118e5b23e65d0bdcf225896be
(face-spec-set): Only face-spec-reset-face when
ATTRS is non-nil.

diff -r 3bc3df2053c4 -r 33b9a5b2a3bc lisp/faces.el
--- a/lisp/faces.el	Fri Sep 08 13:49:15 2000 +0000
+++ b/lisp/faces.el	Fri Sep 08 13:51:08 2000 +0000
@@ -1174,7 +1174,8 @@
 FRAME is the frame whose frame-local face is set.  FRAME nil means
 do it on all frames.  See `defface' for information about SPEC."
   (let ((attrs (face-spec-choose spec frame)))
-    (face-spec-reset-face face frame)
+    (when attrs
+      (face-spec-reset-face face frame))
     (while attrs
       (let ((attribute (car attrs))
 	    (value (car (cdr attrs))))