Mercurial > emacs

comparison lisp/international/fontset.el @ 90420:8a1866284f74

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-encoding-alist): Add koi8-4. (script-representative-chars): Set the default value. (create-fontset-from-x-resource): Delete `message'.
author Kenichi Handa <handa@m17n.org>
date Tue, 06 Jun 2006 03:54:18 +0000
parents c98f49021a42
children c5c4ee67b82e
comparison
equal deleted inserted replaced
90419:0118fa0c9112 90420:8a1866284f74
2 2
3 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003 4 ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003
5 ;; National Institute of Advanced Industrial Science and Technology (AIST) 5 ;; National Institute of Advanced Industrial Science and Technology (AIST)
6 ;; Registration Number H14PRO021 6 ;; Registration Number H14PRO021
7 ;; Copyright (C) 2003 7 ;; Copyright (C) 2003, 2006
8 ;; National Institute of Advanced Industrial Science and Technology (AIST) 8 ;; National Institute of Advanced Industrial Science and Technology (AIST)
9 ;; Registration Number H13PRO009 9 ;; Registration Number H13PRO009
10 10
11 ;; Keywords: mule, i18n, fontset 11 ;; Keywords: mule, i18n, fontset
12 12
72 ("big5" . big5) 72 ("big5" . big5)
73 ("sisheng_cwnn" . chinese-sisheng) 73 ("sisheng_cwnn" . chinese-sisheng)
74 ("viscii" . viscii) 74 ("viscii" . viscii)
75 ("tis620" . tis620-2533) 75 ("tis620" . tis620-2533)
76 ("microsoft-cp1251" . windows-1251) 76 ("microsoft-cp1251" . windows-1251)
77 ("koi8-r" . koi8-r)
77 ("mulearabic-0" . arabic-digit) 78 ("mulearabic-0" . arabic-digit)
78 ("mulearabic-1" . arabic-1-column) 79 ("mulearabic-1" . arabic-1-column)
79 ("mulearabic-2" . arabic-2-column) 80 ("mulearabic-2" . arabic-2-column)
80 ("muleipa" . ipa) 81 ("muleipa" . ipa)
81 ("ethiopic-unicode" . ethiopic) 82 ("ethiopic-unicode" . ethiopic)
110 ("jisx0213.2004-1" . japanese-jisx0213.2004-1) 111 ("jisx0213.2004-1" . japanese-jisx0213.2004-1)
111 ("abobe-symbol" . symbol) 112 ("abobe-symbol" . symbol)
112 ("iso10646-1$" . (unicode-bmp . nil)) 113 ("iso10646-1$" . (unicode-bmp . nil))
113 ("iso10646.indian-1" . (unicode-bmp . nil)))) 114 ("iso10646.indian-1" . (unicode-bmp . nil))))
114 115
116 (setq script-representative-chars
117 '((greek #x3A9)
118 (coptic #x3E2)
119 (cyrillic #x42F)
120 (armenian #x531)
121 (hebrew #x5D0)
122 (arabic #x628)
123 (syriac #x710)
124 (thaana #x78C)
125 (devanagari #x915)
126 (bengali #x995)
127 (gurmukhi #xA15)
128 (gujarati #xA95)
129 (oriya #xB15)
130 (tamil #xB95)
131 (telugu #xC15)
132 (kannada #xC95)
133 (malayalam #xD15)
134 (sinhala #xD95)
135 (thai #xE17)
136 (lao #xEA5)
137 (tibetan #xF40)
138 (myanmar #x1000)
139 (georgian #x10D3)
140 (ethiopic #x1208)
141 (cherokee #x13B6)
142 (canadian-aboriginal #x14C0)
143 (ogham #x168F)
144 (runic #x16A0)
145 (khmer #x1780)
146 (mongolian #x1826)
147 (braille #x2800)
148 (ideographic-description #x2FF0)
149 (cjk-misc #x300E)
150 (kana #x304B)
151 (bopomofo #x3105)
152 (kanbun #x319D)
153 (han #x5B57)
154 (yi #xA288)
155 (hangul #xAC00)))
115 156
116 ;; Set standard fontname specification of characters in the default 157 ;; Set standard fontname specification of characters in the default
117 ;; fontset to find an appropriate font for each script/charset. The 158 ;; fontset to find an appropriate font for each script/charset. The
118 ;; specification has the form ((SCRIPT FONT-SPEC ...) ...), where 159 ;; specification has the form ((SCRIPT FONT-SPEC ...) ...), where
119 ;; FONT-SPEC is: 160 ;; FONT-SPEC is:
745 (defun create-fontset-from-x-resource () 786 (defun create-fontset-from-x-resource ()
746 (let ((idx 0) 787 (let ((idx 0)
747 fontset-spec) 788 fontset-spec)
748 (while (setq fontset-spec (x-get-resource (format "fontset-%d" idx) 789 (while (setq fontset-spec (x-get-resource (format "fontset-%d" idx)
749 (format "Fontset-%d" idx))) 790 (format "Fontset-%d" idx)))
750 (message "%s" fontset-spec)
751 (create-fontset-from-fontset-spec fontset-spec t 'noerror) 791 (create-fontset-from-fontset-spec fontset-spec t 'noerror)
752 (setq idx (1+ idx))))) 792 (setq idx (1+ idx)))))
753 793
754 ;; 794 ;;
755 (provide 'fontset) 795 (provide 'fontset)