Mercurial > emacs

changeset 89137:eab9038a8e03

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Bind set-case-syntax-charset to iso-8859-15. Never provide latin-9.
author Kenichi Handa <handa@m17n.org>
date Tue, 01 Oct 2002 01:32:44 +0000
parents 6830996632b2
children 1bb0a40ed1ce
files lisp/international/latin-9.el
diffstat 1 files changed, 2 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/latin-9.el	Tue Oct 01 01:32:27 2002 +0000
+++ b/lisp/international/latin-9.el	Tue Oct 01 01:32:44 2002 +0000
@@ -45,7 +45,8 @@
 
 (require 'case-table)
 
-(let ((tbl (standard-case-table)))
+(let ((tbl (standard-case-table))
+      (set-case-syntax-charset 'iso-8859-15))
   (set-case-syntax 160 " " tbl)		;no-break space
   (set-case-syntax 161 "." tbl)		;inverted exclamation mark
   (set-case-syntax 162 "w" tbl)		;cent sign
@@ -108,11 +109,6 @@
   (set-case-syntax 223 "w" tbl)		;latin small letter sharp s
   (set-case-syntax 247 "_" tbl))	;division sign
 
-;; 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-9))
-
 ;;; Don't compile this file: src/Makefile.in instructs make-docfile
 ;;; to look at the .el file!
 ;;; Local Variables: