Mercurial > emacs
changeset 22705:34b38e5d0e9d
Make all multibyte characters self-insert.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 06 Jul 1998 06:33:55 +0000 |
| parents | f148cf6092bb |
| children | 27a8a6847be2 |
| files | lisp/bindings.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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))