From: tomo <tomo>
Date: Mon, 26 Aug 2002 08:45:51 +0000 (+0000)
Subject: Don't set `iso8859/1-case-table' to the standard-case-table in
X-Git-Tag: r21-2-47-utf-2000-0_19-new-case~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a9ce1a4ac644b1e63647401481da207485e882a3;p=chise%2Fxemacs-chise.git.1

Don't set `iso8859/1-case-table' to the standard-case-table in
UTF-2000.
---

diff --git a/lisp/iso8859-1.el b/lisp/iso8859-1.el
index 01a15eb..37ed71e 100644
--- a/lisp/iso8859-1.el
+++ b/lisp/iso8859-1.el
@@ -142,6 +142,7 @@
   )
 
 
+(unless (featurep 'utf-2000)
 (defconst iso8859/1-case-table nil
   "The case table for ISO-8859/1 characters.")
 
@@ -198,6 +199,7 @@
  )
 
 (set-standard-case-table (mapcar 'copy-sequence iso8859/1-case-table))
+)
 
 (setq-default ctl-arrow 'iso-8859/1)