# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1241749470 0
# Node ID fb77a6b5c2f6f7192b4652ab87f20dd2a09e216d
# Parent  4f9eafb38e1074a47ee57610af0c5095b671f0b1
(encoded-kbd-setup-keymap): Fix for big5.

diff -r 4f9eafb38e10 -r fb77a6b5c2f6 lisp/international/encoded-kb.el
--- a/lisp/international/encoded-kb.el	Fri May 08 02:15:52 2009 +0000
+++ b/lisp/international/encoded-kb.el	Fri May 08 02:24:30 2009 +0000
@@ -262,6 +262,14 @@
 	(setq i (1+ i))))
     8)
 
+   ((eq (coding-system-type coding) 'big5)
+    (let ((i 128))
+      (while (< i 256)
+	(define-key keymap
+	  (vector i) 'encoded-kbd-self-insert-big5)
+	(setq i (1+ i))))
+    8)
+
    ((eq (coding-system-type coding) 'charset)
     (dolist (elt (mapcar
 		  #'(lambda (x)