Mercurial > hg > xemacs-beta
comparison lisp/x-faces.el @ 394:7d59cb494b73 r21-2-12
Import from CVS: tag r21-2-12
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:11:37 +0200 |
| parents | cc15677e0335 |
| children | 6719134a07c2 |
comparison
equal
deleted
inserted
replaced
| 393:2e030b8965b1 | 394:7d59cb494b73 |
|---|---|
| 504 x-tag-set) | 504 x-tag-set) |
| 505 ;; If there's no device class then we're initializing | 505 ;; If there's no device class then we're initializing |
| 506 ;; globally. This means we should override global | 506 ;; globally. This means we should override global |
| 507 ;; defaults for all X device classes. | 507 ;; defaults for all X device classes. |
| 508 (remove-specifier (face-font face) locale x-tag-set nil)) | 508 (remove-specifier (face-font face) locale x-tag-set nil)) |
| 509 (set-face-font face fn locale nil append)) | 509 (set-face-font face fn locale 'x append)) |
| 510 ;; Kludge-o-rooni. Set the foreground and background resources for | 510 ;; Kludge-o-rooni. Set the foreground and background resources for |
| 511 ;; X devices only -- otherwise things tend to get all messed up | 511 ;; X devices only -- otherwise things tend to get all messed up |
| 512 ;; if you start up an X frame and then later create a TTY frame. | 512 ;; if you start up an X frame and then later create a TTY frame. |
| 513 (when fg | 513 (when fg |
| 514 (if device-class | 514 (if device-class |