From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 8 Sep 2000 13:51:08 +0000 (+0000)
Subject: (face-spec-set): Only face-spec-reset-face when
X-Git-Tag: emacs-pretest-21.0.90~1700
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=10ab7a51227c9c779472d8f5def44da2b0500278;p=emacs.git

(face-spec-set): Only face-spec-reset-face when
ATTRS is non-nil.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 942debc106e..e1eedb84dd8 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1174,7 +1174,8 @@ If FRAME is nil, the current FRAME is used."
 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))))