[Emacs-diffs] Changes to emacs/lisp/faces.el

[John Paul Wallington]

Index: emacs/lisp/faces.el
diff -c emacs/lisp/faces.el:1.277 emacs/lisp/faces.el:1.278
*** emacs/lisp/faces.el:1.277   Mon May 19 10:46:06 2003
--- emacs/lisp/faces.el Mon May 26 15:15:42 2003
***************
*** 1489,1498 ****
   (1) different in appearance than the default face, and
   (2) `close in spirit' to what the attributes specify, if not exact.
  
! Point (2) implies that a `:weight black' attribute will be satisified by
  any display that can display bold, and a `:foreground \"yellow\"' as long
  as it can display a yellowish color, but `:slant italic' will _not_ be
! satisified by the tty display code's automatic substitution of a `dim'
  face for italic."
    (let ((frame
         (if (framep display)
--- 1489,1498 ----
   (1) different in appearance than the default face, and
   (2) `close in spirit' to what the attributes specify, if not exact.
  
! Point (2) implies that a `:weight black' attribute will be satisfied by
  any display that can display bold, and a `:foreground \"yellow\"' as long
  as it can display a yellowish color, but `:slant italic' will _not_ be
! satisfied by the tty display code's automatic substitution of a `dim'
  face for italic."
    (let ((frame
         (if (framep display)
***************
*** 1657,1664 ****
        (progn
          (x-handle-reverse-video frame parameters)
          (frame-set-background-mode frame)
!         ;; No need to call `face-set-after-frame-default'
!         ;; since x-create-frame does that.
          (if (or (null frame-list) (null visibility-spec))
              (make-frame-visible frame)
            (modify-frame-parameters frame (list visibility-spec)))
--- 1657,1663 ----
        (progn
          (x-handle-reverse-video frame parameters)
          (frame-set-background-mode frame)
!         (face-set-after-frame-default frame)
          (if (or (null frame-list) (null visibility-spec))
              (make-frame-visible frame)
            (modify-frame-parameters frame (list visibility-spec)))