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 |