From: Kenichi Handa <handa@m17n.org>
Date: Mon, 6 Jul 1998 06:33:55 +0000 (+0000)
Subject: Make all multibyte characters self-insert.
X-Git-Tag: emacs-20.3~374
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d92921c3f1cdf71c18768e646896640b9bdd7ce9;p=emacs.git

Make all multibyte characters self-insert.
---

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 47f7e5cbdea..20b9a8f8e76 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -300,11 +300,12 @@ for \\[find-tag] (which see)."
 ;; 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))