/[emacs]/emacs/lisp/international/fontset.el
ViewVC logotype

Diff of /emacs/lisp/international/fontset.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.56 by lektu, Tue Feb 4 13:09:38 2003 UTC revision 1.57 by handa, Sat Mar 22 01:08:31 2003 UTC
# Line 42  Line 42 
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).

Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26