Mercurial > emacs
comparison lisp/bindings.el @ 22705:34b38e5d0e9d
Make all multibyte characters self-insert.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 06 Jul 1998 06:33:55 +0000 |
parents | d8368e1df721 |
children | d015bfcaaead |
comparison
equal
deleted
inserted
replaced
22704:f148cf6092bb | 22705:34b38e5d0e9d |
---|---|
298 | 298 |
299 ;; Reduce total amount of space we must allocate during this function | 299 ;; Reduce total amount of space we must allocate during this function |
300 ;; that we will not need to keep permanently. | 300 ;; that we will not need to keep permanently. |
301 (garbage-collect) | 301 (garbage-collect) |
302 | 302 |
303 ;; Make Latin-1, Latin-2, Latin-3 and Latin-4 characters self-insert. | 303 ;; Make all multibyte characters self-insert. |
304 (aset (nth 1 global-map) (make-char 'latin-iso8859-1) 'self-insert-command) | 304 (let ((l (generic-character-list)) |
305 (aset (nth 1 global-map) (make-char 'latin-iso8859-2) 'self-insert-command) | 305 (table (nth 1 global-map))) |
306 (aset (nth 1 global-map) (make-char 'latin-iso8859-3) 'self-insert-command) | 306 (while l |
307 (aset (nth 1 global-map) (make-char 'latin-iso8859-4) 'self-insert-command) | 307 (set-char-table-default table (car l) 'self-insert-command) |
308 (setq l (cdr l)))) | |
308 | 309 |
309 (setq help-event-list '(help f1)) | 310 (setq help-event-list '(help f1)) |
310 | 311 |
311 (make-variable-buffer-local 'minor-mode-overriding-map-alist) | 312 (make-variable-buffer-local 'minor-mode-overriding-map-alist) |
312 | 313 |