From: Kenichi Handa <handa@m17n.org>
Date: Tue, 1 Oct 2002 01:30:52 +0000 (+0000)
Subject: Bind set-case-syntax-charset to iso-8859-1.  Never provide latin-1.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~319
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=54fd80705cd3946de127b9b4653ef6c806466956;p=emacs.git

Bind set-case-syntax-charset to iso-8859-1.  Never provide latin-1.
---

diff --git a/lisp/international/latin-1.el b/lisp/international/latin-1.el
index 8fe1685f531..8b2a22da078 100644
--- a/lisp/international/latin-1.el
+++ b/lisp/international/latin-1.el
@@ -35,7 +35,8 @@
 
 (require 'case-table)
 
-(let ((tbl (standard-case-table)))
+(let ((tbl (standard-case-table))
+      (set-case-syntax-charset 'iso-8859-1))
   (set-case-syntax 160 " " tbl)		;no-break space
   (set-case-syntax 161 "." tbl)		;inverted exclamation mark
   (set-case-syntax 162 "w" tbl)		;cent sign
@@ -102,11 +103,6 @@
   (set-case-syntax 247 "_" tbl)		;division sign
   (set-case-syntax 255 "w" tbl))	;latin small letter y with diaeresis
 
-;; 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-1))
-
 ;;; Don't compile this file: src/Makefile.in instructs make-docfile
 ;;; to look at the .el file!
 ;;; Local Variables: