Mercurial > emacs
comparison lisp/international/fontset.el @ 33048:636ac3744ddd
(fontset-default): Modified for mule-unicode-2500-33ff and
mule-unicode-e000-ffff.
(x-font-name-charset-alist): Likewise.
(ccl-encode-unicode-font): New CCL program. Record it in
font-ccl-encoder-alist to be used for fonts "ISO10646-1".
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 30 Oct 2000 01:36:20 +0000 |
| parents | 43edadfecb51 |
| children | faa3e4d4deea |
comparison
equal
deleted
inserted
replaced
| 33047:5343896202ce | 33048:636ac3744ddd |
|---|---|
| 79 (tibetan . ("proportional" . "MuleTibetan-2")) | 79 (tibetan . ("proportional" . "MuleTibetan-2")) |
| 80 (tibetan-1-column . ("*" . "MuleTibetan-1")) | 80 (tibetan-1-column . ("*" . "MuleTibetan-1")) |
| 81 (latin-iso8859-14 . (nil . "ISO8859-14")) | 81 (latin-iso8859-14 . (nil . "ISO8859-14")) |
| 82 (latin-iso8859-15 . (nil . "ISO8859-15")) | 82 (latin-iso8859-15 . (nil . "ISO8859-15")) |
| 83 (mule-unicode-0100-24ff . (nil . "ISO10646-1")) | 83 (mule-unicode-0100-24ff . (nil . "ISO10646-1")) |
| 84 (mule-unicode-2500-33ff . (nil . "ISO10646-1")) | |
| 85 (mule-unicode-e000-ffff . (nil . "ISO10646-1")) | |
| 84 (japanese-jisx0213-1 . ("*" . "JISX0213")) | 86 (japanese-jisx0213-1 . ("*" . "JISX0213")) |
| 85 (japanese-jisx0213-2 . ("*" . "JISX0213")) | 87 (japanese-jisx0213-2 . ("*" . "JISX0213")) |
| 86 )) | 88 )) |
| 87 charset font-spec arg) | 89 charset font-spec arg) |
| 88 (while l | 90 (while l |
| 107 )) | 109 )) |
| 108 | 110 |
| 109 (set-font-encoding "ISO8859-1" 'ascii 0) | 111 (set-font-encoding "ISO8859-1" 'ascii 0) |
| 110 (set-font-encoding "JISX0201" 'latin-jisx0201 0) | 112 (set-font-encoding "JISX0201" 'latin-jisx0201 0) |
| 111 | 113 |
| 112 (define-ccl-program ccl-encode-mule-unicode-0100-24ff | 114 (define-ccl-program ccl-encode-unicode-font |
| 113 `(0 | 115 `(0 |
| 114 (if (r0 == ,(charset-id 'mule-unicode-0100-24ff)) | 116 (if (r0 == ,(charset-id 'ascii)) |
| 115 ((r1 *= 96) | 117 ((r2 = r1) |
| 116 (r1 += r2) | 118 (r1 = 0)) |
| 117 (r1 += ,(- ?\x100 (* 32 96) 32)) | 119 (if (r0 == ,(charset-id 'latin-iso8859-1)) |
| 118 (r1 >8= 0) | 120 ((r2 = (r1 + 128)) |
| 119 (r2 = r7)) | 121 (r1 = 0)) |
| 120 ((r2 = r1) | 122 (if (r0 == ,(charset-id 'mule-unicode-0100-24ff)) |
| 121 (r1 = 0))))) | 123 ((r1 *= 96) |
| 124 (r1 += r2) | |
| 125 (r1 += ,(- #x100 (* 32 96) 32)) | |
| 126 (r1 >8= 0) | |
| 127 (r2 = r7)) | |
| 128 (if (r0 == ,(charset-id 'mule-unicode-2500-33ff)) | |
| 129 ((r1 *= 96) | |
| 130 (r1 += r2) | |
| 131 (r1 += ,(- #x2500 (* 32 96) 32)) | |
| 132 (r1 >8= 0) | |
| 133 (r2 = r7)) | |
| 134 (if (r0 == ,(charset-id 'mule-unicode-e000-ffff)) | |
| 135 ((r1 *= 96) | |
| 136 (r1 += r2) | |
| 137 (r1 += ,(- #xe000 (* 32 96) 32)) | |
| 138 (r1 >8= 0) | |
| 139 (r2 = r7))))))))) | |
| 122 | 140 |
| 123 (setq font-ccl-encoder-alist | 141 (setq font-ccl-encoder-alist |
| 124 (cons '("ISO10646-1" . ccl-encode-mule-unicode-0100-24ff) | 142 (cons '("ISO10646-1" . ccl-encode-unicode-font) |
| 125 font-ccl-encoder-alist)) | 143 font-ccl-encoder-alist)) |
| 126 | 144 |
| 127 ;; Setting for suppressing XLoadQueryFont on big fonts. | 145 ;; Setting for suppressing XLoadQueryFont on big fonts. |
| 128 (setq x-pixel-size-width-font-regexp | 146 (setq x-pixel-size-width-font-regexp |
| 129 "gb2312\\|jisx0208\\|ksc5601\\|cns11643\\|big5") | 147 "gb2312\\|jisx0208\\|ksc5601\\|cns11643\\|big5") |
| 146 ("tis620" ascii thai-tis620) | 164 ("tis620" ascii thai-tis620) |
| 147 ("koi8" ascii cyrillic-iso8859-5) | 165 ("koi8" ascii cyrillic-iso8859-5) |
| 148 ("viscii" ascii vietnamese-viscii-upper vietnamese-viscii-lower) | 166 ("viscii" ascii vietnamese-viscii-upper vietnamese-viscii-lower) |
| 149 ("vscii" ascii vietnamese-viscii-upper vietnamese-viscii-lower) | 167 ("vscii" ascii vietnamese-viscii-upper vietnamese-viscii-lower) |
| 150 ("mulelao-1" ascii lao) | 168 ("mulelao-1" ascii lao) |
| 151 ("iso10646-1" ascii mule-unicode-0100-24ff)) | 169 ("iso10646-1" ascii latin-iso8859-1 mule-unicode-0100-24ff |
| 170 mule-unicode-2500-33ff mule-unicode-e000-ffff)) | |
| 152 "Alist of font names vs list of charsets the font can display. | 171 "Alist of font names vs list of charsets the font can display. |
| 153 | 172 |
| 154 When a font name which matches some element of this alist is given as | 173 When a font name which matches some element of this alist is given as |
| 155 `-fn' command line argument or is specified by X resource, a fontset | 174 `-fn' command line argument or is specified by X resource, a fontset |
| 156 which uses the specified font for the corresponding charsets are | 175 which uses the specified font for the corresponding charsets are |