1489 |
(1) different in appearance than the default face, and |
(1) different in appearance than the default face, and |
1490 |
(2) `close in spirit' to what the attributes specify, if not exact. |
(2) `close in spirit' to what the attributes specify, if not exact. |
1491 |
|
|
1492 |
Point (2) implies that a `:weight black' attribute will be satisified by |
Point (2) implies that a `:weight black' attribute will be satisfied by |
1493 |
any display that can display bold, and a `:foreground \"yellow\"' as long |
any display that can display bold, and a `:foreground \"yellow\"' as long |
1494 |
as it can display a yellowish color, but `:slant italic' will _not_ be |
as it can display a yellowish color, but `:slant italic' will _not_ be |
1495 |
satisified by the tty display code's automatic substitution of a `dim' |
satisfied by the tty display code's automatic substitution of a `dim' |
1496 |
face for italic." |
face for italic." |
1497 |
(let ((frame |
(let ((frame |
1498 |
(if (framep display) |
(if (framep display) |
1657 |
(progn |
(progn |
1658 |
(x-handle-reverse-video frame parameters) |
(x-handle-reverse-video frame parameters) |
1659 |
(frame-set-background-mode frame) |
(frame-set-background-mode frame) |
1660 |
;; No need to call `face-set-after-frame-default' |
(face-set-after-frame-default frame) |
|
;; since x-create-frame does that. |
|
1661 |
(if (or (null frame-list) (null visibility-spec)) |
(if (or (null frame-list) (null visibility-spec)) |
1662 |
(make-frame-visible frame) |
(make-frame-visible frame) |
1663 |
(modify-frame-parameters frame (list visibility-spec))) |
(modify-frame-parameters frame (list visibility-spec))) |