If set-case-syntax-set-multibyte is non-nil, define syntax

for multibyte characters, and don't do `provide'.

diff --git a/lisp/international/latin-2.el b/lisp/international/latin-2.el
index 0d5bd07c698b6f958add8a4d42eba5043bba6d88..8c1a7b5736266f416157bc9dd022253ce664df6d 100644 (file)
--- a/lisp/international/latin-2.el
+++ b/lisp/international/latin-2.el
@@ -3,7 +3,9 @@
 ;; Copyright (C) 1995 Free Software Foundation, Inc.
 
 ;; Author: Michael Gschwind (mike@vlsivie.tuwien.ac.at)
+;; Maintainer: FSF
 ;; Keywords: i18n
+;; Was formerly named iso02-syn.el.
 
 ;; This file is part of GNU Emacs.
 
@@ -32,7 +34,7 @@
 
 (let ((downcase (standard-case-table))
       (set-case-syntax-offset
-       (if enable-multibyte-characters
+       (if set-case-syntax-set-multibyte
           (- (make-char 'latin-iso8859-2) 128)
         0)))
   (set-case-syntax 160 " " downcase)     ; NBSP (no-break space)
@@ -93,6 +95,9 @@
   (set-case-syntax 255 "w" downcase)   ; dot accent
 )
 
-(provide 'latin-2)
+;; When preloading this file, don't provide the feature.
+;; Explicit `require' is used to load this for 8-bit characters.
+(or set-case-syntax-set-multibyte
+    (provide 'latin-2))
 
 ;;; latin-2.el ends here

diff --git a/lisp/international/latin-3.el b/lisp/international/latin-3.el
index 48bf563478a91712b76d300585246b4350779a6f..6b69c64a6eeba95644cddcaf2012a08f36d84af7 100644 (file)
--- a/lisp/international/latin-3.el
+++ b/lisp/international/latin-3.el
@@ -33,7 +33,7 @@
 
 (let ((downcase (standard-case-table))
       (set-case-syntax-offset
-       (if enable-multibyte-characters
+       (if set-case-syntax-set-multibyte
           (- (make-char 'latin-iso8859-3) 128)
         0)))
   (set-case-syntax 160 " " downcase)   ; NBSP (no-break space)
@@ -99,7 +99,10 @@
   (set-case-syntax 255 "w" downcase)   ; dot accent
 )
 
-(provide 'latin-3.el)
+;; When preloading this file, don't provide the feature.
+;; Explicit `require' is used to load this for 8-bit characters.
+(or set-case-syntax-set-multibyte
+    (provide 'latin-3.el))
 
 ;;; latin-3.el ends here
 

diff --git a/lisp/international/latin-4.el b/lisp/international/latin-4.el
index c03d2d0054a01745a33936fc0fb332bb45928bc6..938152233a4b520663739f11d25198b8f1c44a7a 100644 (file)
--- a/lisp/international/latin-4.el
+++ b/lisp/international/latin-4.el
@@ -1,4 +1,4 @@
-;;; latin-4.el --- support for ISO Latin 4 (ISO 8859-4)
+;;; latin-4.el --- define syntax and case conversion for Latin 4 (ISO 8859-4).
 
 ;; Copyright (C) 1988,1997 Free Software Foundation, Inc.
 
@@ -33,7 +33,7 @@
 
 (let ((tbl (standard-case-table))
       (set-case-syntax-offset
-       (if enable-multibyte-characters
+       (if set-case-syntax-set-multibyte
           (- (make-char 'latin-iso8859-4) 128)
         0)))
   (set-case-syntax 160 "w" tbl)                ;NO-BREAK SPACE
@@ -93,6 +93,9 @@
   (set-case-syntax 247 "_" tbl)                ;DIVISION SIGN
   (set-case-syntax 255 "w" tbl))       ;DOT ABOVE
 
-(provide 'latin-4)
+;; When preloading this file, don't provide the feature.
+;; Explicit `require' is used to load this for 8-bit characters.
+(or set-case-syntax-set-multibyte
+    (provide 'latin-4))
 
 ;;; latin-4.el ends here