Change in face-spec-set

[Richard Stallman]

I wrote the following patch to fix one of the bugs in `face-spec-set'
which was introduced by my first change there.  Other changes have
been made subsequently, and I don't know whether this patch is still
needed, or whether any problems remain there.  Can someone tell me
the situation?

diff -c -c -r1.381 faces.el
*** faces.el    18 Oct 2007 19:02:22 -0000      1.381
--- faces.el    19 Oct 2007 17:25:59 -0000
***************
*** 1472,1477 ****
--- 1472,1483 ----
      ;; When we reset the face based on its spec, then it is unmodified
      ;; as far as Custom is concerned.
      (put (or (get face 'face-alias) face) 'face-modified nil)
+     ;; Clear all the new-frame defaults for this face.
+     ;; face-spec-reset-face won't do it right.
+     (let ((facevec (cdr (assq face face-new-frame-defaults))))
+       (dotimes (i (length facevec))
+       (unless (= i 0)
+         (aset facevec i 'unspecified))))
      ;; Set each frame according to the rules implied by SPEC.
      (dolist (frame (frame-list))
        (face-spec-set face spec frame))))