1 diff -pruN uim-1.5.7.orig/emacs/uim.el uim-1.5.7/emacs/uim.el
2 --- uim-1.5.7.orig/emacs/uim.el 2009-11-22 20:43:02.000000000 +0900
3 +++ uim-1.5.7/emacs/uim.el 2010-03-15 19:36:35.000000000 +0900
5 (defun uim-update-imlist (imlist)
9 - (lang-uim (nth 2 x)))
11 - (or (assoc lang-uim uim-lang-code-alist)
12 - (assoc "Other" uim-lang-code-alist)))))
13 + (let* ((im (nth 0 x))
14 + (lang-uim (nth 2 x))
15 + (entry (or (assoc lang-uim uim-lang-code-alist)
16 + (assoc "Other" uim-lang-code-alist))))
17 + (cons im (if (string-match ".*utf8" im)
18 + (list (car entry) (cadr entry) 'utf-8 "UTF-8")