Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-category.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children cf808b4c4290
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
212 (category-doc-string (int-char (+ 32 i)))))) 212 (category-doc-string (int-char (+ 32 i))))))
213 (setq i (1+ i))))) 213 (setq i (1+ i)))))
214 (terpri))) 214 (terpri)))
215 215
216 (defconst predefined-category-list 216 (defconst predefined-category-list
217 '((latin-1 ?l "Latin-1 through Latin-5 character set") 217 '((latin-iso8859-1 ?l "Latin-1 through Latin-5 character set")
218 (latin-2 ?l) 218 (latin-iso8859-2 ?l)
219 (latin-3 ?l) 219 (latin-iso8859-3 ?l)
220 (latin-4 ?l) 220 (latin-iso8859-4 ?l)
221 (latin-5 ?l) 221 (latin-iso8859-9 ?l)
222 (cyrillic ?y "Cyrillic character set") 222 (cyrillic-iso8859-5 ?y "Cyrillic character set")
223 (arabic ?b "Arabic character set") 223 (arabic-iso8859-6 ?b "Arabic character set")
224 (greek ?g "Greek character set") 224 (greek-iso8859-7 ?g "Greek character set")
225 (hebrew ?w "Hebrew character set") 225 (hebrew-iso8859-8 ?w "Hebrew character set")
226 (japanese-jisx0201-kana ?k "Japanese 1-byte Katakana character set") 226 (katakana-jisx0201 ?k "Japanese 1-byte Katakana character set")
227 (japanese-jisx0201-roman ?r "Japanese 1-byte Roman character set") 227 (latin-jisx0201 ?r "Japanese 1-byte Roman character set")
228 (japanese-jisx0208-1978 ?j "Japanese 2-byte character set (old)") 228 (japanese-jisx0208-1978 ?j "Japanese 2-byte character set (old)")
229 (japanese-jisx0208 ?j "Japanese 2-byte character set") 229 (japanese-jisx0208 ?j "Japanese 2-byte character set")
230 (japanese-jisx0212 ?j) 230 (japanese-jisx0212 ?j)
231 (chinese-gb ?c "Chinese GB (China, PRC) 2-byte character set") 231 (chinese-gb2312 ?c "Chinese GB (China, PRC) 2-byte character set")
232 (chinese-cns11643-1 ?t "Chinese Taiwan (CNS or Big5) 2-byte character set") 232 (chinese-cns11643-1 ?t "Chinese Taiwan (CNS or Big5) 2-byte character set")
233 (chinese-cns11643-2 ?t) 233 (chinese-cns11643-2 ?t)
234 (chinese-big5-1 ?t) 234 (chinese-big5-1 ?t)
235 (chinese-big5-2 ?t) 235 (chinese-big5-2 ?t)
236 (korean-ksc5601 ?h "Hangul (Korean) 2-byte character set") 236 (korean-ksc5601 ?h "Hangul (Korean) 2-byte character set")
237 ) 237 )
238 "List of predefined categories. 238 "List of predefined categories.
239 Each element is a list of a charset, a designator, and maybe a doc string.") 239 Each element is a list of a charset, a designator, and maybe a doc string.")
240 240
241 (let (i l) 241 (let (i l)