comparison lisp/x-faces.el @ 335:54f7aa390f4f r21-0-65

Import from CVS: tag r21-0-65
author cvs
date Mon, 13 Aug 2007 10:50:39 +0200
parents 70ad99077275
children fbbf69b4e8a7
comparison
equal deleted inserted replaced
334:58353925ad93 335:54f7aa390f4f
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