# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 863581760 0
# Node ID 1a496d5712ec3d965658cca538b161a8f4beaa0b
# Parent  fa666ca256c69dc25481839a5377847e84758410
Make Latin-4 characters self-insert.
Use aset to set up these char sets.

diff -r fa666ca256c6 -r 1a496d5712ec lisp/bindings.el
--- 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))