Mercurial > emacs
comparison lisp/faces.el @ 51248:e21b4eb91135
(x-create-frame-with-faces): Call `face-set-after-frame-default'.
(display-supports-face-attributes-p): Doc fix.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Mon, 26 May 2003 19:15:42 +0000 |
| parents | 8b14c07986ec |
| children | c2efaecb5d8f |
comparison
equal
deleted
inserted
replaced
| 51247:bae989c94b95 | 51248:e21b4eb91135 |
|---|---|
| 1487 with the default face for display, can be represented in a way that's | 1487 with the default face for display, can be represented in a way that's |
| 1488 | 1488 |
| 1489 (1) different in appearance than the default face, and | 1489 (1) different in appearance than the default face, and |
| 1490 (2) `close in spirit' to what the attributes specify, if not exact. | 1490 (2) `close in spirit' to what the attributes specify, if not exact. |
| 1491 | 1491 |
| 1492 Point (2) implies that a `:weight black' attribute will be satisified by | 1492 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 | 1493 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 | 1494 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' | 1495 satisfied by the tty display code's automatic substitution of a `dim' |
| 1496 face for italic." | 1496 face for italic." |
| 1497 (let ((frame | 1497 (let ((frame |
| 1498 (if (framep display) | 1498 (if (framep display) |
| 1499 display | 1499 display |
| 1500 (car (frames-on-display-list display))))) | 1500 (car (frames-on-display-list display))))) |
| 1655 success) | 1655 success) |
| 1656 (unwind-protect | 1656 (unwind-protect |
| 1657 (progn | 1657 (progn |
| 1658 (x-handle-reverse-video frame parameters) | 1658 (x-handle-reverse-video frame parameters) |
| 1659 (frame-set-background-mode frame) | 1659 (frame-set-background-mode frame) |
| 1660 ;; No need to call `face-set-after-frame-default' | 1660 (face-set-after-frame-default frame) |
| 1661 ;; since x-create-frame does that. | |
| 1662 (if (or (null frame-list) (null visibility-spec)) | 1661 (if (or (null frame-list) (null visibility-spec)) |
| 1663 (make-frame-visible frame) | 1662 (make-frame-visible frame) |
| 1664 (modify-frame-parameters frame (list visibility-spec))) | 1663 (modify-frame-parameters frame (list visibility-spec))) |
| 1665 (setq success t)) | 1664 (setq success t)) |
| 1666 (unless success | 1665 (unless success |