(U-000278B8): Apply new conventions for glyph granularity.

[chise/xemacs-chise.git.1] / lisp / iso8859-1.el

diff --git a/lisp/iso8859-1.el b/lisp/iso8859-1.el
index 50bd40a..37ed71e 100644 (file)
--- a/lisp/iso8859-1.el
+++ b/lisp/iso8859-1.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1992, 1997 Free Software Foundation, Inc.
 
-;; Author: Jamie Zawinski <jwz@netscape.com>
+;; Author: Jamie Zawinski <jwz@jwz.org>
 ;; Created: 19-aug-92
 ;; Maintainer: XEmacs Development Team
 ;; Keywords: internal, dumped
@@ -142,6 +142,7 @@
   )
 
 \f
+(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)