# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1014948725 0
# Node ID 8827e60c74c7414e98fb9472aaca863ed24a223c
# Parent  4135242fe433420920e89144fbc14ea5d98af21a
Don't bind set-case-syntax-offset.

diff -r 4135242fe433 -r 8827e60c74c7 lisp/international/latin-1.el
--- a/lisp/international/latin-1.el	Fri Mar 01 02:09:14 2002 +0000
+++ b/lisp/international/latin-1.el	Fri Mar 01 02:12:05 2002 +0000
@@ -35,11 +35,7 @@
 
 (require 'case-table)
 
-(let ((tbl (standard-case-table))
-      (set-case-syntax-offset
-       (if set-case-syntax-set-multibyte
-	   (- (make-char 'latin-iso8859-1) 128)
-	 0)))
+(let ((tbl (standard-case-table)))
   (set-case-syntax 160 " " tbl)		;no-break space
   (set-case-syntax 161 "." tbl)		;inverted exclamation mark
   (set-case-syntax 162 "w" tbl)		;cent sign
diff -r 4135242fe433 -r 8827e60c74c7 lisp/international/latin-2.el
--- a/lisp/international/latin-2.el	Fri Mar 01 02:09:14 2002 +0000
+++ b/lisp/international/latin-2.el	Fri Mar 01 02:12:05 2002 +0000
@@ -33,11 +33,7 @@
 
 (require 'case-table)
 
-(let ((tbl (standard-case-table))
-      (set-case-syntax-offset
-       (if set-case-syntax-set-multibyte
-	   (- (make-char 'latin-iso8859-2) 128)
-	 0)))
+(let ((tbl (standard-case-table)))
   (set-case-syntax 160 " " tbl)		;no-break space
   (set-case-syntax-pair 161 177 tbl)	;latin letter a with ogonek
   (set-case-syntax 162 "w" tbl)		;breve
diff -r 4135242fe433 -r 8827e60c74c7 lisp/international/latin-3.el
--- a/lisp/international/latin-3.el	Fri Mar 01 02:09:14 2002 +0000
+++ b/lisp/international/latin-3.el	Fri Mar 01 02:12:05 2002 +0000
@@ -32,11 +32,7 @@
 
 (require 'case-table)
 
-(let ((tbl (standard-case-table))
-      (set-case-syntax-offset
-       (if set-case-syntax-set-multibyte
-	   (- (make-char 'latin-iso8859-3) 128)
-	 0)))
+(let ((tbl (standard-case-table)))
   (set-case-syntax 160 " " tbl)		;no-break space
   (set-case-syntax-pair 161 177 tbl)	;latin letter h with stroke
   (set-case-syntax 162 "w" tbl)		;breve
diff -r 4135242fe433 -r 8827e60c74c7 lisp/international/latin-4.el
--- a/lisp/international/latin-4.el	Fri Mar 01 02:09:14 2002 +0000
+++ b/lisp/international/latin-4.el	Fri Mar 01 02:12:05 2002 +0000
@@ -31,11 +31,7 @@
 
 (require 'case-table)
 
-(let ((tbl (standard-case-table))
-      (set-case-syntax-offset
-       (if set-case-syntax-set-multibyte
-	   (- (make-char 'latin-iso8859-4) 128)
-	 0)))
+(let ((tbl (standard-case-table)))
   (set-case-syntax 160 " " tbl)		;no-break space
   (set-case-syntax-pair 161 177 tbl)	;latin letter a with ogonek
   (set-case-syntax 162 "w" tbl)		;latin letter kra
diff -r 4135242fe433 -r 8827e60c74c7 lisp/international/latin-5.el
--- a/lisp/international/latin-5.el	Fri Mar 01 02:09:14 2002 +0000
+++ b/lisp/international/latin-5.el	Fri Mar 01 02:12:05 2002 +0000
@@ -31,11 +31,7 @@
 
 (require 'case-table)
 
-(let ((tbl (standard-case-table))
-      (set-case-syntax-offset
-       (if set-case-syntax-set-multibyte
-	   (- (make-char 'latin-iso8859-9) 128)
-	 0)))
+(let ((tbl (standard-case-table)))
   (set-case-syntax 160 " " tbl)		;no-break space
   (set-case-syntax 161 "." tbl)		;inverted exclamation mark
   (set-case-syntax 162 "w" tbl)		;cent sign
diff -r 4135242fe433 -r 8827e60c74c7 lisp/international/latin-8.el
--- a/lisp/international/latin-8.el	Fri Mar 01 02:09:14 2002 +0000
+++ b/lisp/international/latin-8.el	Fri Mar 01 02:12:05 2002 +0000
@@ -42,11 +42,7 @@
 
 (require 'case-table)
 
-(let ((tbl (standard-case-table))
-      (set-case-syntax-offset
-       (if set-case-syntax-set-multibyte
-	   (- (make-char 'latin-iso8859-14) 128)
-	 0)))
+(let ((tbl (standard-case-table)))
   (set-case-syntax-pair 161 162 tbl)	;latin letter b with dot above *
   (set-case-syntax 163 "w" tbl)		;pound sign
   (set-case-syntax-pair 164 165 tbl)	;latin letter c with dot above *
diff -r 4135242fe433 -r 8827e60c74c7 lisp/international/latin-9.el
--- a/lisp/international/latin-9.el	Fri Mar 01 02:09:14 2002 +0000
+++ b/lisp/international/latin-9.el	Fri Mar 01 02:12:05 2002 +0000
@@ -45,11 +45,7 @@
 
 (require 'case-table)
 
-(let ((tbl (standard-case-table))
-      (set-case-syntax-offset
-       (if set-case-syntax-set-multibyte
-	   (- (make-char 'latin-iso8859-15) 128)
-	 0)))
+(let ((tbl (standard-case-table)))
   (set-case-syntax 160 " " tbl)		;no-break space
   (set-case-syntax 161 "." tbl)		;inverted exclamation mark
   (set-case-syntax 162 "w" tbl)		;cent sign