X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fiso8859-1.el;h=37ed71ebb093db776d8438037a073f2b871ee2a1;hb=dff25f45a911f8a0e5c5bde4c1df0b01e7289fb4;hp=dbfe12fb4daf19afedde96492b3cb746dcfcff10;hpb=afa9772e3fcbb4e80e3e4cfd1a40b4fccc6d08b8;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/iso8859-1.el b/lisp/iso8859-1.el
index dbfe12f..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.")
 
@@ -161,9 +162,9 @@
 	  (setq pairs (cdr pairs)))
 	(cons 'setq
 	      (cons 'iso8859/1-case-table
-		    (list (list 'purecopy
-				(list 'quote
-				      (list downcase nil nil nil)))))))))
+		    (list
+		     (list 'quote
+			   (list downcase nil nil nil))))))))
  
  (?\300  ?\340)		; Agrave
  (?\301  ?\341)		; Aacute
@@ -198,6 +199,7 @@
  )
 
 (set-standard-case-table (mapcar 'copy-sequence iso8859/1-case-table))
+)
 
 (setq-default ctl-arrow 'iso-8859/1)