diff options
| author | Richard M. Stallman | 1997-05-14 03:49:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-05-14 03:49:20 +0000 |
| commit | 5a0c40ea122438c1e019a8c123feb9bb0c66389f (patch) | |
| tree | 9d5b4863e4c6b397b1cba49b1b6fde78ba280d3b | |
| parent | 2d4ef3c0eca77370dbdd50df8d0f7abce847f584 (diff) | |
| download | emacs-5a0c40ea122438c1e019a8c123feb9bb0c66389f.tar.gz emacs-5a0c40ea122438c1e019a8c123feb9bb0c66389f.zip | |
Make Latin-4 characters self-insert.
Use aset to set up these char sets.
| -rw-r--r-- | lisp/bindings.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index b906bcdcae9..36682a847b3 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el | |||
| @@ -220,10 +220,11 @@ for \\[find-tag] (which see)." | |||
| 220 | ;; that we will not need to keep permanently. | 220 | ;; that we will not need to keep permanently. |
| 221 | (garbage-collect) | 221 | (garbage-collect) |
| 222 | 222 | ||
| 223 | ;; Make Latin-1, Latin-2 and Latin-3 characters self-insert. | 223 | ;; Make Latin-1, Latin-2, Latin-3 and Latin-4 characters self-insert. |
| 224 | (set-char-table-range (nth 1 global-map) [129] 'self-insert-command) | 224 | (aset (nth 1 global-map) (make-char 'latin-iso8859-1) 'self-insert-command) |
| 225 | (set-char-table-range (nth 1 global-map) [130] 'self-insert-command) | 225 | (aset (nth 1 global-map) (make-char 'latin-iso8859-2) 'self-insert-command) |
| 226 | (set-char-table-range (nth 1 global-map) [131] 'self-insert-command) | 226 | (aset (nth 1 global-map) (make-char 'latin-iso8859-3) 'self-insert-command) |
| 227 | (aset (nth 1 global-map) (make-char 'latin-iso8859-4) 'self-insert-command) | ||
| 227 | 228 | ||
| 228 | (define-key ctl-x-map "n" (make-sparse-keymap)) | 229 | (define-key ctl-x-map "n" (make-sparse-keymap)) |
| 229 | (define-key ctl-x-map "r" (make-sparse-keymap)) | 230 | (define-key ctl-x-map "r" (make-sparse-keymap)) |