diff options
| author | Kenichi Handa <handa@m17n.org> | 2000-10-30 01:36:20 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2000-10-30 01:36:20 +0000 |
| commit | adbff2a719f2ece9b68599d79e52659a2c2532ec (patch) | |
| tree | d98304ca5612dd8c13761d3dbbd5ddd722785f33 /lisp/international/fontset.el | |
| parent | a89f541b4ad5faae5269295e0ecfb1f82e60efc1 (diff) | |
| download | emacs-adbff2a719f2ece9b68599d79e52659a2c2532ec.tar.gz | |
(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".
Diffstat (limited to 'lisp/international/fontset.el')
| -rw-r--r-- | lisp/international/fontset.el | 41 |
1 files changed, 30 insertions, 11 deletions
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index 82cf251bc4d..33b7fb12cf8 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -81,6 +81,8 @@ (latin-iso8859-14 . (nil . "ISO8859-14")) (latin-iso8859-15 . (nil . "ISO8859-15")) (mule-unicode-0100-24ff . (nil . "ISO10646-1")) + (mule-unicode-2500-33ff . (nil . "ISO10646-1")) + (mule-unicode-e000-ffff . (nil . "ISO10646-1")) (japanese-jisx0213-1 . ("*" . "JISX0213")) (japanese-jisx0213-2 . ("*" . "JISX0213")) )) @@ -109,19 +111,35 @@ (set-font-encoding "ISO8859-1" 'ascii 0) (set-font-encoding "JISX0201" 'latin-jisx0201 0) -(define-ccl-program ccl-encode-mule-unicode-0100-24ff +(define-ccl-program ccl-encode-unicode-font `(0 - (if (r0 == ,(charset-id 'mule-unicode-0100-24ff)) - ((r1 *= 96) - (r1 += r2) - (r1 += ,(- ?\x100 (* 32 96) 32)) - (r1 >8= 0) - (r2 = r7)) - ((r2 = r1) - (r1 = 0))))) + (if (r0 == ,(charset-id 'ascii)) + ((r2 = r1) + (r1 = 0)) + (if (r0 == ,(charset-id 'latin-iso8859-1)) + ((r2 = (r1 + 128)) + (r1 = 0)) + (if (r0 == ,(charset-id 'mule-unicode-0100-24ff)) + ((r1 *= 96) + (r1 += r2) + (r1 += ,(- #x100 (* 32 96) 32)) + (r1 >8= 0) + (r2 = r7)) + (if (r0 == ,(charset-id 'mule-unicode-2500-33ff)) + ((r1 *= 96) + (r1 += r2) + (r1 += ,(- #x2500 (* 32 96) 32)) + (r1 >8= 0) + (r2 = r7)) + (if (r0 == ,(charset-id 'mule-unicode-e000-ffff)) + ((r1 *= 96) + (r1 += r2) + (r1 += ,(- #xe000 (* 32 96) 32)) + (r1 >8= 0) + (r2 = r7))))))))) (setq font-ccl-encoder-alist - (cons '("ISO10646-1" . ccl-encode-mule-unicode-0100-24ff) + (cons '("ISO10646-1" . ccl-encode-unicode-font) font-ccl-encoder-alist)) ;; Setting for suppressing XLoadQueryFont on big fonts. @@ -148,7 +166,8 @@ ("viscii" ascii vietnamese-viscii-upper vietnamese-viscii-lower) ("vscii" ascii vietnamese-viscii-upper vietnamese-viscii-lower) ("mulelao-1" ascii lao) - ("iso10646-1" ascii mule-unicode-0100-24ff)) + ("iso10646-1" ascii latin-iso8859-1 mule-unicode-0100-24ff + mule-unicode-2500-33ff mule-unicode-e000-ffff)) "Alist of font names vs list of charsets the font can display. When a font name which matches some element of this alist is given as |