Mercurial > hg > xemacs-beta
comparison lisp/x-faces.el @ 3659:98af8a976fc3
[xemacs-hg @ 2006-11-05 22:31:31 by aidan]
Support specifying fonts for particular character sets in Mule; support
translation to ISO 10646-1 for Mule character sets without an otherwise
matching font; move to a vector of X11-charset-X11-registry instead of a
regex for the charset-registry property.
| author | aidan |
|---|---|
| date | Sun, 05 Nov 2006 22:31:46 +0000 |
| parents | 316fddbf58e2 |
| children | c13b89ba4796 |
comparison
equal
deleted
inserted
replaced
| 3658:0db1aaedbbef | 3659:98af8a976fc3 |
|---|---|
| 780 x-tag-set) | 780 x-tag-set) |
| 781 ;; If there's no device class then we're initializing | 781 ;; If there's no device class then we're initializing |
| 782 ;; globally. This means we should override global | 782 ;; globally. This means we should override global |
| 783 ;; defaults for all X device classes. | 783 ;; defaults for all X device classes. |
| 784 (remove-specifier (face-font face) locale x-tag-set nil)) | 784 (remove-specifier (face-font face) locale x-tag-set nil)) |
| 785 (set-face-font face fn locale 'x append)) | 785 (set-face-font face fn locale 'x append) |
| 786 ; | |
| 787 ; (debug-print "the face is %s, locale %s, specifier %s" | |
| 788 ; face locale (face-font face)) | |
| 789 ; | |
| 790 ;; And retain some of the fallbacks in the generated default face, | |
| 791 ;; since we don't want to try andale-mono's ISO-10646-1 encoding for | |
| 792 ;; Amharic or Thai. This is fragile; it depends on the code in | |
| 793 ;; faces.c. | |
| 794 (dolist (assocked '((x encode-as-utf-8 initial) | |
| 795 (x two-dimensional initial) | |
| 796 (x one-dimensional final) | |
| 797 (x two-dimensional final))) | |
| 798 (when (and (specifierp (face-font face)) | |
| 799 (consp (specifier-fallback (face-font face))) | |
| 800 (setq assocked | |
| 801 (assoc assocked | |
| 802 (specifier-fallback | |
| 803 (face-font face))))) | |
| 804 (set-face-font face (cdr assocked) locale | |
| 805 (nreverse (car assocked)) append)))) | |
| 806 | |
| 786 ;; Kludge-o-rooni. Set the foreground and background resources for | 807 ;; Kludge-o-rooni. Set the foreground and background resources for |
| 787 ;; X devices only -- otherwise things tend to get all messed up | 808 ;; X devices only -- otherwise things tend to get all messed up |
| 788 ;; if you start up an X frame and then later create a TTY frame. | 809 ;; if you start up an X frame and then later create a TTY frame. |
| 789 (when fg | 810 (when fg |
| 790 (if device-class | 811 (if device-class |