From: Kenichi Handa <handa@m17n.org>
Date: Fri, 1 Mar 2002 02:12:05 +0000 (+0000)
Subject: Don't bind set-case-syntax-offset.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~972
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=491d068e41eb0f9f1bd67ababc3457e3db2c2008;p=emacs.git

Don't bind set-case-syntax-offset.
---

diff --git a/lisp/international/latin-1.el b/lisp/international/latin-1.el
index 4fe2cbbe970..8fe1685f531 100644
--- a/lisp/international/latin-1.el
+++ b/lisp/international/latin-1.el
@@ -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 --git a/lisp/international/latin-2.el b/lisp/international/latin-2.el
index e96ed8c39b3..9ac40f621ed 100644
--- a/lisp/international/latin-2.el
+++ b/lisp/international/latin-2.el
@@ -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 --git a/lisp/international/latin-3.el b/lisp/international/latin-3.el
index 1880b525548..b2a8492eed7 100644
--- a/lisp/international/latin-3.el
+++ b/lisp/international/latin-3.el
@@ -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 --git a/lisp/international/latin-4.el b/lisp/international/latin-4.el
index 50b9b9f33a2..f5891c414fe 100644
--- a/lisp/international/latin-4.el
+++ b/lisp/international/latin-4.el
@@ -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 --git a/lisp/international/latin-5.el b/lisp/international/latin-5.el
index 51c9ede9d34..6f65b530187 100644
--- a/lisp/international/latin-5.el
+++ b/lisp/international/latin-5.el
@@ -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 --git a/lisp/international/latin-8.el b/lisp/international/latin-8.el
index bf366609e35..c6e40b13cc8 100644
--- a/lisp/international/latin-8.el
+++ b/lisp/international/latin-8.el
@@ -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 --git a/lisp/international/latin-9.el b/lisp/international/latin-9.el
index 7639d2501e7..964ec3c597b 100644
--- a/lisp/international/latin-9.el
+++ b/lisp/international/latin-9.el
@@ -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