Mercurial > emacs
changeset 17793:1a496d5712ec
Make Latin-4 characters self-insert.
Use aset to set up these char sets.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 14 May 1997 03:49:20 +0000 |
| parents | fa666ca256c6 |
| children | 2fc1e3833259 |
| files | lisp/bindings.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/bindings.el Wed May 14 02:25:48 1997 +0000 +++ b/lisp/bindings.el Wed May 14 03:49:20 1997 +0000 @@ -220,10 +220,11 @@ ;; that we will not need to keep permanently. (garbage-collect) -;; Make Latin-1, Latin-2 and Latin-3 characters self-insert. -(set-char-table-range (nth 1 global-map) [129] 'self-insert-command) -(set-char-table-range (nth 1 global-map) [130] 'self-insert-command) -(set-char-table-range (nth 1 global-map) [131] 'self-insert-command) +;; 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) (define-key ctl-x-map "n" (make-sparse-keymap)) (define-key ctl-x-map "r" (make-sparse-keymap))