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

diff --git a/lisp/international/latin-1.el b/lisp/international/latin-1.el
index 4fe2cbb..8fe1685 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 e96ed8c..9ac40f6 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 1880b52..b2a8492 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 50b9b9f..f5891c4 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 51c9ede..6f65b53 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 bf36660..c6e40b1 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 7639d25..964ec3c 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