diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-07-06 06:33:55 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-07-06 06:33:55 +0000 |
| commit | d92921c3f1cdf71c18768e646896640b9bdd7ce9 (patch) | |
| tree | ac4013f4c2ada8806d7a9cfe78b50b111484abea /lisp/bindings.el | |
| parent | 52e3ccbf8da2355817268d7a96b5fa21f628d6db (diff) | |
| download | emacs-d92921c3f1cdf71c18768e646896640b9bdd7ce9.tar.gz | |
Make all multibyte characters self-insert.
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 11 |
1 files changed, 6 insertions, 5 deletions
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)) |