emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: 23.0.50; face-problems with multy-tty


From: Richard Stallman
Subject: Re: 23.0.50; face-problems with multy-tty
Date: Fri, 28 Sep 2007 15:04:52 -0400

Does this patch fix it?


*** faces.el    23 Sep 2007 05:07:20 -0400      1.377
--- faces.el    28 Sep 2007 10:55:28 -0400      
***************
*** 1446,1453 ****
  FRAME is the frame whose frame-local face is set.  FRAME nil means
  do it on all frames.  See `defface' for information about SPEC.
  If SPEC is nil, do nothing."
!   (if frame
!       (let ((attrs (face-spec-choose spec frame)))
        (when spec
          (face-spec-reset-face face frame))
        (while attrs
--- 1446,1452 ----
  FRAME is the frame whose frame-local face is set.  FRAME nil means
  do it on all frames.  See `defface' for information about SPEC.
  If SPEC is nil, do nothing."
!   (let ((attrs (face-spec-choose spec frame)))
        (when spec
          (face-spec-reset-face face frame))
        (while attrs
***************
*** 1469,1474 ****
--- 1468,1478 ----
      ;; 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.
+     (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))))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]