42 |
|
|
43 |
(defun setup-default-fontset () |
(defun setup-default-fontset () |
44 |
"Setup the default fontset." |
"Setup the default fontset." |
45 |
(dolist |
(dolist (elt |
46 |
(elt |
`((latin-iso8859-1 . (nil . "ISO8859-1")) |
47 |
;; Eval this at compile-time, since fontset.el is always loaded |
(latin-iso8859-2 . (nil . "ISO8859-2")) |
48 |
;; when run under X and this would always load ind-util.el as well. |
(latin-iso8859-3 . (nil . "ISO8859-3")) |
49 |
(eval-when-compile |
(latin-iso8859-4 . (nil . "ISO8859-4")) |
50 |
`((latin-iso8859-1 . (nil . "ISO8859-1")) |
(thai-tis620 . ("*" . "TIS620")) |
51 |
(latin-iso8859-2 . (nil . "ISO8859-2")) |
(greek-iso8859-7 . ("*" . "ISO8859-7")) |
52 |
(latin-iso8859-3 . (nil . "ISO8859-3")) |
(arabic-iso8859-6 . ("*" . "ISO8859-6")) |
53 |
(latin-iso8859-4 . (nil . "ISO8859-4")) |
(hebrew-iso8859-8 . ("*" . "ISO8859-8")) |
54 |
(thai-tis620 . ("*" . "TIS620")) |
(katakana-jisx0201 . ("*" . "JISX0201")) |
55 |
(greek-iso8859-7 . ("*" . "ISO8859-7")) |
(latin-jisx0201 . (nil . "JISX0201")) |
56 |
(arabic-iso8859-6 . ("*" . "ISO8859-6")) |
(cyrillic-iso8859-5 . ("*" . "ISO8859-5")) |
57 |
(hebrew-iso8859-8 . ("*" . "ISO8859-8")) |
(latin-iso8859-9 . (nil . "ISO8859-9")) |
58 |
(katakana-jisx0201 . ("*" . "JISX0201")) |
(japanese-jisx0208-1978 . ("*" . "JISX0208.1978")) |
59 |
(latin-jisx0201 . (nil . "JISX0201")) |
(chinese-gb2312 . ("*" . "GB2312.1980")) |
60 |
(cyrillic-iso8859-5 . ("*" . "ISO8859-5")) |
(japanese-jisx0208 . ("*" . "JISX0208.1990")) |
61 |
(latin-iso8859-9 . (nil . "ISO8859-9")) |
(korean-ksc5601 . ("*" . "KSC5601.1989")) |
62 |
(japanese-jisx0208-1978 . ("*" . "JISX0208.1978")) |
(japanese-jisx0212 . ("*" . "JISX0212")) |
63 |
(chinese-gb2312 . ("*" . "GB2312.1980")) |
(chinese-cns11643-1 . ("*" . "CNS11643.1992-1")) |
64 |
(japanese-jisx0208 . ("*" . "JISX0208.1990")) |
(chinese-cns11643-2 . ("*" . "CNS11643.1992-2")) |
65 |
(korean-ksc5601 . ("*" . "KSC5601.1989")) |
(chinese-cns11643-3 . ("*" . "CNS11643.1992-3")) |
66 |
(japanese-jisx0212 . ("*" . "JISX0212")) |
(chinese-cns11643-4 . ("*" . "CNS11643.1992-4")) |
67 |
(chinese-cns11643-1 . ("*" . "CNS11643.1992-1")) |
(chinese-cns11643-5 . ("*" . "CNS11643.1992-5")) |
68 |
(chinese-cns11643-2 . ("*" . "CNS11643.1992-2")) |
(chinese-cns11643-6 . ("*" . "CNS11643.1992-6")) |
69 |
(chinese-cns11643-3 . ("*" . "CNS11643.1992-3")) |
(chinese-cns11643-7 . ("*" . "CNS11643.1992-7")) |
70 |
(chinese-cns11643-4 . ("*" . "CNS11643.1992-4")) |
(chinese-big5-1 . ("*" . "Big5")) |
71 |
(chinese-cns11643-5 . ("*" . "CNS11643.1992-5")) |
(chinese-big5-2 . ("*" . "Big5")) |
72 |
(chinese-cns11643-6 . ("*" . "CNS11643.1992-6")) |
(chinese-sisheng . (nil . "sisheng_cwnn")) |
73 |
(chinese-cns11643-7 . ("*" . "CNS11643.1992-7")) |
(vietnamese-viscii-lower . (nil . "VISCII1.1")) |
74 |
(chinese-big5-1 . ("*" . "Big5")) |
(vietnamese-viscii-upper . (nil . "VISCII1.1")) |
75 |
(chinese-big5-2 . ("*" . "Big5")) |
(arabic-digit . ("*" . "MuleArabic-0")) |
76 |
(chinese-sisheng . (nil . "sisheng_cwnn")) |
(arabic-1-column . ("*" . "MuleArabic-1")) |
77 |
(vietnamese-viscii-lower . (nil . "VISCII1.1")) |
(arabic-2-column . ("*" . "MuleArabic-2")) |
78 |
(vietnamese-viscii-upper . (nil . "VISCII1.1")) |
(ipa . (nil . "MuleIPA")) |
79 |
(arabic-digit . ("*" . "MuleArabic-0")) |
(ethiopic . ("*" . "Ethiopic-Unicode")) |
80 |
(arabic-1-column . ("*" . "MuleArabic-1")) |
(ascii-right-to-left . (nil . "ISO8859-1")) |
81 |
(arabic-2-column . ("*" . "MuleArabic-2")) |
(indian-is13194 . ("*" . "IS13194-Devanagari")) |
82 |
(ipa . (nil . "MuleIPA")) |
(indian-2-column . ("*" . "MuleIndian-2")) |
83 |
(ethiopic . ("*" . "Ethiopic-Unicode")) |
(lao . ("*" . "MuleLao-1")) |
84 |
(ascii-right-to-left . (nil . "ISO8859-1")) |
(tibetan . ("proportional" . "MuleTibetan-2")) |
85 |
(indian-is13194 . ("*" . "IS13194-Devanagari")) |
(tibetan-1-column . ("*" . "MuleTibetan-1")) |
86 |
(indian-2-column . ("*" . "MuleIndian-2")) |
(latin-iso8859-14 . (nil . "ISO8859-14")) |
87 |
(lao . ("*" . "MuleLao-1")) |
(latin-iso8859-15 . (nil . "ISO8859-15")) |
88 |
(tibetan . ("proportional" . "MuleTibetan-2")) |
(mule-unicode-0100-24ff . (nil . "ISO10646-1")) |
89 |
(tibetan-1-column . ("*" . "MuleTibetan-1")) |
(mule-unicode-2500-33ff . (nil . "ISO10646-1")) |
90 |
(latin-iso8859-14 . (nil . "ISO8859-14")) |
(mule-unicode-e000-ffff . (nil . "ISO10646-1")) |
91 |
(latin-iso8859-15 . (nil . "ISO8859-15")) |
(japanese-jisx0213-1 . ("*" . "JISX0213.2000-1")) |
92 |
(mule-unicode-0100-24ff . (nil . "ISO10646-1")) |
(japanese-jisx0213-2 . ("*" . "JISX0213.2000-2")) |
93 |
(mule-unicode-2500-33ff . (nil . "ISO10646-1")) |
;; unicode |
94 |
(mule-unicode-e000-ffff . (nil . "ISO10646-1")) |
((,(decode-char 'ucs #x0900) . ,(decode-char 'ucs #x097F)) |
95 |
(japanese-jisx0213-1 . ("*" . "JISX0213.2000-1")) |
. ("*" . "ISO10646.indian-1")) |
96 |
(japanese-jisx0213-2 . ("*" . "JISX0213.2000-2")) |
;; Indian CDAC |
97 |
;; unicode |
(,(indian-font-char-range 'cdac:dv-ttsurekh) |
98 |
((,(decode-char 'ucs #x0900) |
. ("*" . "Devanagari-CDAC")) |
99 |
. ,(decode-char 'ucs #x097F)) . ("*" . "ISO10646.indian-1")) |
(,(indian-font-char-range 'cdac:sd-ttsurekh) |
100 |
;; indian |
. ("*" . "Sanskrit-CDAC")) |
101 |
(indian-glyph . ("*" . "Devanagari-CDAC")) |
(,(indian-font-char-range 'cdac:bn-ttdurga) |
102 |
((,(indian-glyph-char 0 'devanagari) |
. ("*" . "Bengali-CDAC")) |
103 |
. ,(indian-glyph-char 255 'devanagari)) . ("*" . "Devanagari-CDAC")) |
(,(indian-font-char-range 'cdac:as-ttdurga) |
104 |
((,(indian-glyph-char 0 'sanskrit) |
. ("*" . "Assamese-CDAC")) |
105 |
. ,(indian-glyph-char 255 'sanskrit)) . ("*" . "Sanskrit-CDAC")) |
(,(indian-font-char-range 'cdac:pn-ttamar) |
106 |
((,(indian-glyph-char 0 'bengali) |
. ("*" . "Punjabi-CDAC")) |
107 |
. ,(indian-glyph-char 255 'bengali)) . ("*" . "Bengali-CDAC")) |
(,(indian-font-char-range 'cdac:gj-ttavantika) |
108 |
((,(indian-glyph-char 0 'assamese) |
. ("*" . "Gujarati-CDAC")) |
109 |
. ,(indian-glyph-char 255 'assamese)) . ("*" . "Assamese-CDAC")) |
(,(indian-font-char-range 'cdac:or-ttsarala) |
110 |
((,(indian-glyph-char 0 'punjabi) |
. ("*" . "Oriya-CDAC")) |
111 |
. ,(indian-glyph-char 255 'punjabi)) . ("*" . "Punjabi-CDAC")) |
(,(indian-font-char-range 'cdac:tm-ttvalluvar) |
112 |
((,(indian-glyph-char 0 'gujarati) |
. ("*" . "Tamil-CDAC")) |
113 |
. ,(indian-glyph-char 255 'gujarati)) . ("*" . "Gujarati-CDAC")) |
(,(indian-font-char-range 'cdac:tl-tthemalatha) |
114 |
((,(indian-glyph-char 0 'oriya) |
. ("*" . "Telugu-CDAC")) |
115 |
. ,(indian-glyph-char 255 'oriya)) . ("*" . "Oriya-CDAC")) |
(,(indian-font-char-range 'cdac:kn-ttuma) |
116 |
((,(indian-glyph-char 0 'tamil) |
. ("*" . "Kannada-CDAC")) |
117 |
. ,(indian-glyph-char 255 'tamil)) . ("*" . "Tamil-CDAC")) |
(,(indian-font-char-range 'cdac:ml-ttkarthika) |
118 |
((,(indian-glyph-char 0 'telugu) |
. ("*" . "Malayalam-CDAC")) |
119 |
. ,(indian-glyph-char 255 'telugu)) . ("*" . "Telugu-CDAC")) |
;; Indian AKRUTI |
120 |
((,(indian-glyph-char 0 'kannada) |
(,(indian-font-char-range 'akruti:dev) |
121 |
. ,(indian-glyph-char 255 'kannada)) . ("*" . "Kannada-CDAC")) |
. ("*" . "dev-AKRUTHI")) |
122 |
((,(indian-glyph-char 0 'malayalam) |
(,(indian-font-char-range 'akruti:bng) |
123 |
. ,(indian-glyph-char 255 'malayalam)) . ("*" . "Malayalam-CDAC")) |
. ("*" . "bng-AKRUTHI")) |
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 |
|
)) |
139 |
(set-fontset-font "fontset-default" (car elt) (cdr elt)))) |
(set-fontset-font "fontset-default" (car elt) (cdr elt)))) |
140 |
|
|
141 |
;; Set arguments in `font-encoding-alist' (which see). |
;; Set arguments in `font-encoding-alist' (which see). |