Mercurial > emacs
comparison lisp/bindings.el @ 73050:9e002a3232ec
Fix setting self-insert-command for multibyte
characters in global-map.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 22 Sep 2006 12:55:25 +0000 |
| parents | 4b8670b297f4 |
| children | c4f0807660f6 2d56e13fd23d |
comparison
equal
deleted
inserted
replaced
| 73049:5fe222b4d692 | 73050:9e002a3232ec |
|---|---|
| 602 | 602 |
| 603 ;; Make all multibyte characters self-insert. | 603 ;; Make all multibyte characters self-insert. |
| 604 (let ((l (generic-character-list)) | 604 (let ((l (generic-character-list)) |
| 605 (table (nth 1 global-map))) | 605 (table (nth 1 global-map))) |
| 606 (while l | 606 (while l |
| 607 (set-char-table-default table (car l) 'self-insert-command) | 607 (aset table (car l) 'self-insert-command) |
| 608 (setq l (cdr l)))) | 608 (setq l (cdr l)))) |
| 609 | 609 |
| 610 (setq help-event-list '(help f1)) | 610 (setq help-event-list '(help f1)) |
| 611 | 611 |
| 612 (make-variable-buffer-local 'minor-mode-overriding-map-alist) | 612 (make-variable-buffer-local 'minor-mode-overriding-map-alist) |