# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 899706835 0
# Node ID 34b38e5d0e9d90082caaf6f78a2a2b5301593daf
# Parent  f148cf6092bbf5c776dd0e5ac80c9f034120ec52
Make all multibyte characters self-insert.

diff -r f148cf6092bb -r 34b38e5d0e9d lisp/bindings.el
--- a/lisp/bindings.el	Mon Jul 06 06:33:55 1998 +0000
+++ b/lisp/bindings.el	Mon Jul 06 06:33:55 1998 +0000
@@ -300,11 +300,12 @@
 ;; that we will not need to keep permanently.
 (garbage-collect)
 
-;; Make Latin-1, Latin-2, Latin-3 and Latin-4 characters self-insert.
-(aset (nth 1 global-map) (make-char 'latin-iso8859-1) 'self-insert-command)
-(aset (nth 1 global-map) (make-char 'latin-iso8859-2) 'self-insert-command)
-(aset (nth 1 global-map) (make-char 'latin-iso8859-3) 'self-insert-command)
-(aset (nth 1 global-map) (make-char 'latin-iso8859-4) 'self-insert-command)
+;; Make all multibyte characters self-insert.
+(let ((l (generic-character-list))
+      (table (nth 1 global-map)))
+  (while l
+    (set-char-table-default table (car l) 'self-insert-command)
+    (setq l (cdr l))))
 
 (setq help-event-list '(help f1))