[Emacs-diffs] emacs/lisp/international encoded-kb.el

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   09/05/08 02:24:30

Modified files:
        lisp/international: encoded-kb.el 

Log message:
        (encoded-kbd-setup-keymap): Fix for big5.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/encoded-kb.el?cvsroot=emacs&r1=1.47&r2=1.48

Patches:
Index: encoded-kb.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/encoded-kb.el,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -b -r1.47 -r1.48
--- encoded-kb.el       5 Jan 2009 03:22:20 -0000       1.47
+++ encoded-kb.el       8 May 2009 02:24:30 -0000       1.48
@@ -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)