Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-msw-init-late.el @ 5118:e0db3c197671 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge up to latest default branch, doesn't compile yet
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 21:18:49 -0600
parents d402d7b18bd8
children 980575c76541
comparison
equal deleted inserted replaced
5117:3742ea8250b5 5118:e0db3c197671
35 (cyrillic-iso8859-5 . "Cyrillic") 35 (cyrillic-iso8859-5 . "Cyrillic")
36 (latin-iso8859-1 . "Western") 36 (latin-iso8859-1 . "Western")
37 (greek-iso8859-7 . "Greek") 37 (greek-iso8859-7 . "Greek")
38 (latin-iso8859-9 . "Turkish") 38 (latin-iso8859-9 . "Turkish")
39 (hebrew-iso8859-8 . "Hebrew") 39 (hebrew-iso8859-8 . "Hebrew")
40 (arabic-iso8859-6 . "Arabic")
41 (latin-iso8859-4 . "Baltic") 40 (latin-iso8859-4 . "Baltic")
42 (vietnamese-viscii-lower . "Viet Nam") 41 (vietnamese-viscii-lower . "Viet Nam")
43 (vietnamese-viscii-upper . "Viet Nam") 42 (vietnamese-viscii-upper . "Viet Nam")
44 (thai-tis620 . "Thai") 43 (thai-tis620 . "Thai")
45 (latin-jisx0201 . "Japanese") 44 (latin-jisx0201 . "Japanese")
52 (chinese-big5-1 . "Traditional Chinese") 51 (chinese-big5-1 . "Traditional Chinese")
53 (chinese-big5-2 . "Traditional Chinese")))) 52 (chinese-big5-2 . "Traditional Chinese"))))
54 (while l 53 (while l
55 (let ((charset (car (car l))) 54 (let ((charset (car (car l)))
56 (registry (cdr (car l)))) 55 (registry (cdr (car l))))
57 (mswindows-set-charset-registry charset registry) 56 (declare-fboundp (mswindows-set-charset-registry charset registry))
58 (setq l (cdr l))))) 57 (setq l (cdr l)))))
59 58
60 (let ((l '((ascii . 1252) 59 (let ((l '((ascii . 1252)
61 (latin-iso8859-2 . 1250) 60 (latin-iso8859-2 . 1250)
62 (cyrillic-iso8859-5 . 1251) 61 (cyrillic-iso8859-5 . 1251)
79 (chinese-big5-1 . 950) 78 (chinese-big5-1 . 950)
80 (chinese-big5-2 . 950)))) 79 (chinese-big5-2 . 950))))
81 (while l 80 (while l
82 (let ((charset (car (car l))) 81 (let ((charset (car (car l)))
83 (code-page (cdr (car l)))) 82 (code-page (cdr (car l))))
84 (mswindows-set-charset-code-page charset code-page) 83 (declare-fboundp (mswindows-set-charset-code-page charset code-page))
85 (setq l (cdr l))))) 84 (setq l (cdr l)))))