packages: uim/uim-emacs-utf8.patch (NEW) - use utf8 encoding in emacs (from...

[baggins]

Author: baggins                      Date: Sat Jul 16 11:26:07 2011 GMT
Module: packages                      Tag: HEAD
---- Log message:
- use utf8 encoding in emacs (from FC)

---- Files affected:
packages/uim:
   uim-emacs-utf8.patch (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: packages/uim/uim-emacs-utf8.patch
diff -u /dev/null packages/uim/uim-emacs-utf8.patch:1.1
--- /dev/null	Sat Jul 16 13:26:07 2011
+++ packages/uim/uim-emacs-utf8.patch	Sat Jul 16 13:26:01 2011
@@ -0,0 +1,22 @@
+diff -pruN uim-1.5.7.orig/emacs/uim.el uim-1.5.7/emacs/uim.el
+--- uim-1.5.7.orig/emacs/uim.el	2009-11-22 20:43:02.000000000 +0900
++++ uim-1.5.7/emacs/uim.el	2010-03-15 19:36:35.000000000 +0900
+@@ -552,11 +552,13 @@
+ (defun uim-update-imlist (imlist)
+   (setq uim-im-alist 
+ 	(mapcar '(lambda (x) 
+-		   (let ((im (nth 0 x))
+-			 (lang-uim (nth 2 x)))
+-		     (cons im
+-			   (or (assoc lang-uim uim-lang-code-alist)
+-			       (assoc "Other" uim-lang-code-alist)))))
++		   (let* ((im (nth 0 x))
++			  (lang-uim (nth 2 x))
++			  (entry (or (assoc lang-uim uim-lang-code-alist)
++				     (assoc "Other" uim-lang-code-alist))))
++		     (cons im (if (string-match ".*utf8" im)
++				  (list (car entry) (cadr entry) 'utf-8 "UTF-8")
++				entry))))
+ 		imlist))
+   )
+ 
================================================================