From 8deeeb61d844da32f52c33add96633ba58917395 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 1 Oct 2002 01:32:27 +0000 Subject: [PATCH] Bind set-case-syntax-charset to iso-8859-14. Never provide latin-8. --- lisp/international/latin-8.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/lisp/international/latin-8.el b/lisp/international/latin-8.el index c6e40b13cc8..ace8dfa6462 100644 --- a/lisp/international/latin-8.el +++ b/lisp/international/latin-8.el @@ -42,7 +42,8 @@ (require 'case-table) -(let ((tbl (standard-case-table))) +(let ((tbl (standard-case-table)) + (set-case-syntax-charset 'iso-8859-14)) (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 * @@ -95,11 +96,6 @@ (set-case-syntax-pair 222 254 tbl) ;latin letter y with circumflex * (set-case-syntax 223 "w" tbl)) ;latin small letter sharp s -;; 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-8)) - ;;; Don't compile this file: src/Makefile.in instructs make-docfile ;;; to look at the .el file! ;;; Local Variables: -- 2.39.2