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

diff --git a/lisp/international/latin-1.el b/lisp/international/latin-1.el
index 4fe2cbbe9705ff49150d553122a02e9041db1129..8fe1685f531f9178e409ae3ab50bab232ce9356e 100644 (file)
--- 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 e96ed8c39b3bf0c9f9f8e5a6e45fcc3c0aff6883..9ac40f621edb405ce46e89a5f4ba409bb2b31906 100644 (file)
--- 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 1880b5255482e2438904560ff9e22a78b1076ea0..b2a8492eed70e77ef3c8fa4d0d3fc83ac869ab92 100644 (file)
--- 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 50b9b9f33a27917c398f9ecd7aef100e7d1ce7bc..f5891c414fe7be3dce971a42c79dcf2dc88adad0 100644 (file)
--- 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 51c9ede9d345dbaa00d449bce531e750d4a4bf28..6f65b53018762b3f23282b25044ac82f279d57a3 100644 (file)
--- 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 bf366609e35513edcd32f6cff2c91897cda1b235..c6e40b13cc8f857a4f3002766dad1675fc3ab4cc 100644 (file)
--- 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 7639d2501e70d9fd630c5be005f2e5fc358a5ec0..964ec3c597b7642b97e6d00f14e67ab96f5ce24e 100644 (file)
--- 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