Mercurial > emacs

comparison lisp/international/fontset.el @ 50257:19c37f19c706

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(setup-default-fontset): Use indian-font-char-range for specifying ranges of indian-glyph chars. Setup for AKRUTI fonts.
author Kenichi Handa <handa@m17n.org>
date Sat, 22 Mar 2003 01:08:31 +0000
parents 0d8b17d428b5
children 125da3e3e9af
comparison
equal deleted inserted replaced
50256:104cf4fa2a8e 50257:19c37f19c706
40 ;; character `*' is embedded in `CHARSET_ENCODING' field. The 40 ;; character `*' is embedded in `CHARSET_ENCODING' field. The
41 ;; REGISTRY for ASCII characters are predefined as "ISO8859-1". 41 ;; REGISTRY for ASCII characters are predefined as "ISO8859-1".
42 42
43 (defun setup-default-fontset () 43 (defun setup-default-fontset ()
44 "Setup the default fontset." 44 "Setup the default fontset."
45 (dolist 45 (dolist (elt
46 (elt 46 `((latin-iso8859-1 . (nil . "ISO8859-1"))
47 ;; Eval this at compile-time, since fontset.el is always loaded 47 (latin-iso8859-2 . (nil . "ISO8859-2"))
48 ;; when run under X and this would always load ind-util.el as well. 48 (latin-iso8859-3 . (nil . "ISO8859-3"))
49 (eval-when-compile 49 (latin-iso8859-4 . (nil . "ISO8859-4"))
50 `((latin-iso8859-1 . (nil . "ISO8859-1")) 50 (thai-tis620 . ("*" . "TIS620"))
51 (latin-iso8859-2 . (nil . "ISO8859-2")) 51 (greek-iso8859-7 . ("*" . "ISO8859-7"))
52 (latin-iso8859-3 . (nil . "ISO8859-3")) 52 (arabic-iso8859-6 . ("*" . "ISO8859-6"))
53 (latin-iso8859-4 . (nil . "ISO8859-4")) 53 (hebrew-iso8859-8 . ("*" . "ISO8859-8"))
54 (thai-tis620 . ("*" . "TIS620")) 54 (katakana-jisx0201 . ("*" . "JISX0201"))
55 (greek-iso8859-7 . ("*" . "ISO8859-7")) 55 (latin-jisx0201 . (nil . "JISX0201"))
56 (arabic-iso8859-6 . ("*" . "ISO8859-6")) 56 (cyrillic-iso8859-5 . ("*" . "ISO8859-5"))
57 (hebrew-iso8859-8 . ("*" . "ISO8859-8")) 57 (latin-iso8859-9 . (nil . "ISO8859-9"))
58 (katakana-jisx0201 . ("*" . "JISX0201")) 58 (japanese-jisx0208-1978 . ("*" . "JISX0208.1978"))
59 (latin-jisx0201 . (nil . "JISX0201")) 59 (chinese-gb2312 . ("*" . "GB2312.1980"))
60 (cyrillic-iso8859-5 . ("*" . "ISO8859-5")) 60 (japanese-jisx0208 . ("*" . "JISX0208.1990"))
61 (latin-iso8859-9 . (nil . "ISO8859-9")) 61 (korean-ksc5601 . ("*" . "KSC5601.1989"))
62 (japanese-jisx0208-1978 . ("*" . "JISX0208.1978")) 62 (japanese-jisx0212 . ("*" . "JISX0212"))
63 (chinese-gb2312 . ("*" . "GB2312.1980")) 63 (chinese-cns11643-1 . ("*" . "CNS11643.1992-1"))
64 (japanese-jisx0208 . ("*" . "JISX0208.1990")) 64 (chinese-cns11643-2 . ("*" . "CNS11643.1992-2"))
65 (korean-ksc5601 . ("*" . "KSC5601.1989")) 65 (chinese-cns11643-3 . ("*" . "CNS11643.1992-3"))
66 (japanese-jisx0212 . ("*" . "JISX0212")) 66 (chinese-cns11643-4 . ("*" . "CNS11643.1992-4"))
67 (chinese-cns11643-1 . ("*" . "CNS11643.1992-1")) 67 (chinese-cns11643-5 . ("*" . "CNS11643.1992-5"))
68 (chinese-cns11643-2 . ("*" . "CNS11643.1992-2")) 68 (chinese-cns11643-6 . ("*" . "CNS11643.1992-6"))
69 (chinese-cns11643-3 . ("*" . "CNS11643.1992-3")) 69 (chinese-cns11643-7 . ("*" . "CNS11643.1992-7"))
70 (chinese-cns11643-4 . ("*" . "CNS11643.1992-4")) 70 (chinese-big5-1 . ("*" . "Big5"))
71 (chinese-cns11643-5 . ("*" . "CNS11643.1992-5")) 71 (chinese-big5-2 . ("*" . "Big5"))
72 (chinese-cns11643-6 . ("*" . "CNS11643.1992-6")) 72 (chinese-sisheng . (nil . "sisheng_cwnn"))
73 (chinese-cns11643-7 . ("*" . "CNS11643.1992-7")) 73 (vietnamese-viscii-lower . (nil . "VISCII1.1"))
74 (chinese-big5-1 . ("*" . "Big5")) 74 (vietnamese-viscii-upper . (nil . "VISCII1.1"))
75 (chinese-big5-2 . ("*" . "Big5")) 75 (arabic-digit . ("*" . "MuleArabic-0"))
76 (chinese-sisheng . (nil . "sisheng_cwnn")) 76 (arabic-1-column . ("*" . "MuleArabic-1"))
77 (vietnamese-viscii-lower . (nil . "VISCII1.1")) 77 (arabic-2-column . ("*" . "MuleArabic-2"))
78 (vietnamese-viscii-upper . (nil . "VISCII1.1")) 78 (ipa . (nil . "MuleIPA"))
79 (arabic-digit . ("*" . "MuleArabic-0")) 79 (ethiopic . ("*" . "Ethiopic-Unicode"))
80 (arabic-1-column . ("*" . "MuleArabic-1")) 80 (ascii-right-to-left . (nil . "ISO8859-1"))
81 (arabic-2-column . ("*" . "MuleArabic-2")) 81 (indian-is13194 . ("*" . "IS13194-Devanagari"))
82 (ipa . (nil . "MuleIPA")) 82 (indian-2-column . ("*" . "MuleIndian-2"))
83 (ethiopic . ("*" . "Ethiopic-Unicode")) 83 (lao . ("*" . "MuleLao-1"))
84 (ascii-right-to-left . (nil . "ISO8859-1")) 84 (tibetan . ("proportional" . "MuleTibetan-2"))
85 (indian-is13194 . ("*" . "IS13194-Devanagari")) 85 (tibetan-1-column . ("*" . "MuleTibetan-1"))
86 (indian-2-column . ("*" . "MuleIndian-2")) 86 (latin-iso8859-14 . (nil . "ISO8859-14"))
87 (lao . ("*" . "MuleLao-1")) 87 (latin-iso8859-15 . (nil . "ISO8859-15"))
88 (tibetan . ("proportional" . "MuleTibetan-2")) 88 (mule-unicode-0100-24ff . (nil . "ISO10646-1"))
89 (tibetan-1-column . ("*" . "MuleTibetan-1")) 89 (mule-unicode-2500-33ff . (nil . "ISO10646-1"))
90 (latin-iso8859-14 . (nil . "ISO8859-14")) 90 (mule-unicode-e000-ffff . (nil . "ISO10646-1"))
91 (latin-iso8859-15 . (nil . "ISO8859-15")) 91 (japanese-jisx0213-1 . ("*" . "JISX0213.2000-1"))
92 (mule-unicode-0100-24ff . (nil . "ISO10646-1")) 92 (japanese-jisx0213-2 . ("*" . "JISX0213.2000-2"))
93 (mule-unicode-2500-33ff . (nil . "ISO10646-1")) 93 ;; unicode
94 (mule-unicode-e000-ffff . (nil . "ISO10646-1")) 94 ((,(decode-char 'ucs #x0900) . ,(decode-char 'ucs #x097F))
95 (japanese-jisx0213-1 . ("*" . "JISX0213.2000-1")) 95 . ("*" . "ISO10646.indian-1"))
96 (japanese-jisx0213-2 . ("*" . "JISX0213.2000-2")) 96 ;; Indian CDAC
97 ;; unicode 97 (,(indian-font-char-range 'cdac:dv-ttsurekh)
98 ((,(decode-char 'ucs #x0900) 98 . ("*" . "Devanagari-CDAC"))
99 . ,(decode-char 'ucs #x097F)) . ("*" . "ISO10646.indian-1")) 99 (,(indian-font-char-range 'cdac:sd-ttsurekh)
100 ;; indian 100 . ("*" . "Sanskrit-CDAC"))
101 (indian-glyph . ("*" . "Devanagari-CDAC")) 101 (,(indian-font-char-range 'cdac:bn-ttdurga)
102 ((,(indian-glyph-char 0 'devanagari) 102 . ("*" . "Bengali-CDAC"))
103 . ,(indian-glyph-char 255 'devanagari)) . ("*" . "Devanagari-CDAC")) 103 (,(indian-font-char-range 'cdac:as-ttdurga)
104 ((,(indian-glyph-char 0 'sanskrit) 104 . ("*" . "Assamese-CDAC"))
105 . ,(indian-glyph-char 255 'sanskrit)) . ("*" . "Sanskrit-CDAC")) 105 (,(indian-font-char-range 'cdac:pn-ttamar)
106 ((,(indian-glyph-char 0 'bengali) 106 . ("*" . "Punjabi-CDAC"))
107 . ,(indian-glyph-char 255 'bengali)) . ("*" . "Bengali-CDAC")) 107 (,(indian-font-char-range 'cdac:gj-ttavantika)
108 ((,(indian-glyph-char 0 'assamese) 108 . ("*" . "Gujarati-CDAC"))
109 . ,(indian-glyph-char 255 'assamese)) . ("*" . "Assamese-CDAC")) 109 (,(indian-font-char-range 'cdac:or-ttsarala)
110 ((,(indian-glyph-char 0 'punjabi) 110 . ("*" . "Oriya-CDAC"))
111 . ,(indian-glyph-char 255 'punjabi)) . ("*" . "Punjabi-CDAC")) 111 (,(indian-font-char-range 'cdac:tm-ttvalluvar)
112 ((,(indian-glyph-char 0 'gujarati) 112 . ("*" . "Tamil-CDAC"))
113 . ,(indian-glyph-char 255 'gujarati)) . ("*" . "Gujarati-CDAC")) 113 (,(indian-font-char-range 'cdac:tl-tthemalatha)
114 ((,(indian-glyph-char 0 'oriya) 114 . ("*" . "Telugu-CDAC"))
115 . ,(indian-glyph-char 255 'oriya)) . ("*" . "Oriya-CDAC")) 115 (,(indian-font-char-range 'cdac:kn-ttuma)
116 ((,(indian-glyph-char 0 'tamil) 116 . ("*" . "Kannada-CDAC"))
117 . ,(indian-glyph-char 255 'tamil)) . ("*" . "Tamil-CDAC")) 117 (,(indian-font-char-range 'cdac:ml-ttkarthika)
118 ((,(indian-glyph-char 0 'telugu) 118 . ("*" . "Malayalam-CDAC"))
119 . ,(indian-glyph-char 255 'telugu)) . ("*" . "Telugu-CDAC")) 119 ;; Indian AKRUTI
120 ((,(indian-glyph-char 0 'kannada) 120 (,(indian-font-char-range 'akruti:dev)
121 . ,(indian-glyph-char 255 'kannada)) . ("*" . "Kannada-CDAC")) 121 . ("*" . "dev-AKRUTHI"))
122 ((,(indian-glyph-char 0 'malayalam) 122 (,(indian-font-char-range 'akruti:bng)
123 . ,(indian-glyph-char 255 'malayalam)) . ("*" . "Malayalam-CDAC")) 123 . ("*" . "bng-AKRUTHI"))
124 ))) 124 (,(indian-font-char-range 'akruti:pnj)
125 . ("*" . "png-AKRUTHI"))
126 (,(indian-font-char-range 'akruti:guj)
127 . ("*" . "guj-AKRUTHI"))
128 (,(indian-font-char-range 'akruti:ori)
129 . ("*" . "ori-AKRUTHI"))
130 (,(indian-font-char-range 'akruti:tml)
131 . ("*" . "tml-AKRUTHI"))
132 (,(indian-font-char-range 'akruti:tlg)
133 . ("*" . "tlg-AKRUTHI"))
134 (,(indian-font-char-range 'akruti:knd)
135 . ("*" . "kng-AKRUTHI"))
136 (,(indian-font-char-range 'akruti:mal)
137 . ("*" . "mal-AKRUTHI"))
138 ))
125 (set-fontset-font "fontset-default" (car elt) (cdr elt)))) 139 (set-fontset-font "fontset-default" (car elt) (cdr elt))))
126 140
127 ;; Set arguments in `font-encoding-alist' (which see). 141 ;; Set arguments in `font-encoding-alist' (which see).
128 (defun set-font-encoding (pattern charset encoding) 142 (defun set-font-encoding (pattern charset encoding)
129 (let ((slot (assoc pattern font-encoding-alist))) 143 (let ((slot (assoc pattern font-encoding-alist)))