# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1033435907 0
# Node ID b87c8091320a228c8362fdd2fc78ef7399e47e81
# Parent  d3d9f3ca22fdf6a8069f114a8c9f257541b40a7e
Bind set-case-syntax-charset to iso-8859-4.  Never provide latin-4.

diff -r d3d9f3ca22fd -r b87c8091320a lisp/international/latin-4.el
--- a/lisp/international/latin-4.el	Tue Oct 01 01:31:29 2002 +0000
+++ b/lisp/international/latin-4.el	Tue Oct 01 01:31:47 2002 +0000
@@ -31,7 +31,8 @@
 
 (require 'case-table)
 
-(let ((tbl (standard-case-table)))
+(let ((tbl (standard-case-table))
+      (set-case-syntax-charset 'iso-8859-4))
   (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
@@ -89,11 +90,6 @@
   (set-case-syntax 247 "_" tbl)		;division sign
   (set-case-syntax 255 "w" tbl))	;dot above
 
-;; 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))
-
 ;;; Don't compile this file: src/Makefile.in instructs make-docfile
 ;;; to look at the .el file!
 ;;; Local Variables: