mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(x-create-frame-with-faces): Call `face-set-after-frame-default'.

Browse Source 
(display-supports-face-attributes-p): Doc fix.
This commit is contained in:
John Paul Wallington 2003-05-26 19:15:42 +00:00
parent 8b9266575b
commit 448bcb402d
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/faces.el
View File

@ -1489,10 +1489,10 @@ with the default face for display, can be represented in a way that's
(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
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
satisified by the tty display code's automatic substitution of a `dim'
satisfied by the tty display code's automatic substitution of a `dim'
face for italic."
(let ((frame
(if (framep display)
@ -1657,8 +1657,7 @@ Value is the new frame created."
(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.
(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)))