uim-emacs-utf8.patch

   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
   4 @@ -552,11 +552,13 @@
   5  (defun uim-update-imlist (imlist)
   6    (setq uim-im-alist
   7         (mapcar '(lambda (x)
   8 -                  (let ((im (nth 0 x))
   9 -                        (lang-uim (nth 2 x)))
  10 -                    (cons im
  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")
  19 +                               entry))))
  20                 imlist))
  21    )
  22