Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-msw-init-late.el @ 4103:b4f4e0cc90f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-08-07 23:08:47 by aidan] Eliminate byte compiler warnings, give nicer errors in the absence of packages.
author aidan
date Tue, 07 Aug 2007 23:09:22 +0000
parents 79c6ff3eef26
children d402d7b18bd8
comparison
equal deleted inserted replaced
4102:9856d458deda 4103:b4f4e0cc90f1
52 (chinese-big5-1 . "Traditional Chinese") 52 (chinese-big5-1 . "Traditional Chinese")
53 (chinese-big5-2 . "Traditional Chinese")))) 53 (chinese-big5-2 . "Traditional Chinese"))))
54 (while l 54 (while l
55 (let ((charset (car (car l))) 55 (let ((charset (car (car l)))
56 (registry (cdr (car l)))) 56 (registry (cdr (car l))))
57 (mswindows-set-charset-registry charset registry) 57 (declare-fboundp (mswindows-set-charset-registry charset registry))
58 (setq l (cdr l))))) 58 (setq l (cdr l)))))
59 59
60 (let ((l '((ascii . 1252) 60 (let ((l '((ascii . 1252)
61 (latin-iso8859-2 . 1250) 61 (latin-iso8859-2 . 1250)
62 (cyrillic-iso8859-5 . 1251) 62 (cyrillic-iso8859-5 . 1251)
79 (chinese-big5-1 . 950) 79 (chinese-big5-1 . 950)
80 (chinese-big5-2 . 950)))) 80 (chinese-big5-2 . 950))))
81 (while l 81 (while l
82 (let ((charset (car (car l))) 82 (let ((charset (car (car l)))
83 (code-page (cdr (car l)))) 83 (code-page (cdr (car l))))
84 (mswindows-set-charset-code-page charset code-page) 84 (declare-fboundp (mswindows-set-charset-code-page charset code-page))
85 (setq l (cdr l))))) 85 (setq l (cdr l)))))