projects
/
chise
/
xemacs-chise.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(A-GT-K07045): New abstract node; use `<-denotational' for
[chise/xemacs-chise.git]
/
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.
;; 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
;; Created: 19-aug-92
;; Maintainer: XEmacs Development Team
;; Keywords: internal, dumped
@@
-142,6
+142,7
@@
)
\f
)
\f
+(unless (featurep 'utf-2000)
(defconst iso8859/1-case-table nil
"The case table for ISO-8859/1 characters.")
(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
(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
(?\300 ?\340) ; Agrave
(?\301 ?\341) ; Aacute
@@
-198,6
+199,7
@@
)
(set-standard-case-table (mapcar 'copy-sequence iso8859/1-case-table))
)
(set-standard-case-table (mapcar 'copy-sequence iso8859/1-case-table))
+)
(setq-default ctl-arrow 'iso-8859/1)
(setq-default ctl-arrow 'iso-8859/1)