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

7 files changed, 7 insertions, 35 deletions

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