# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1158929725 0
# Node ID 9e002a3232ec0406ba5f1caf8d7da57cb1dec837
# Parent  5fe222b4d692699e049d68accc411639e428dac1
Fix setting self-insert-command for multibyte
characters in global-map.

diff -r 5fe222b4d692 -r 9e002a3232ec lisp/bindings.el
--- a/lisp/bindings.el	Fri Sep 22 12:54:38 2006 +0000
+++ b/lisp/bindings.el	Fri Sep 22 12:55:25 2006 +0000
@@ -604,7 +604,7 @@
 (let ((l (generic-character-list))
       (table (nth 1 global-map)))
   (while l
-    (set-char-table-default table (car l) 'self-insert-command)
+    (aset table (car l) 'self-insert-command)
     (setq l (cdr l))))
 
 (setq help-event-list '(help f1))