forked from pool/xemacs
54 lines
2.8 KiB
Diff
54 lines
2.8 KiB
Diff
xemacs-21.5.28.20070726/lisp/mule/CVSだけに発見: Base
|
||
xemacs-21.5.28.20070726/lisp/mule/CVSだけに発見: Baserev
|
||
diff -ru xemacs-21.5.28.20070726.orig/lisp/mule/latin.el xemacs-21.5.28.20070726/lisp/mule/latin.el
|
||
--- xemacs-21.5.28.20070726.orig/lisp/mule/latin.el 2007-07-26 15:22:13.000000000 +0200
|
||
+++ xemacs-21.5.28.20070726/lisp/mule/latin.el 2007-07-27 12:32:37.000000000 +0200
|
||
@@ -628,6 +628,47 @@
|
||
|
||
;; end of ISO-8859-9
|
||
|
||
+;; Microsoft's Code Page 1252, for Western Europe and the Americas
|
||
+
|
||
+(make-8-bit-coding-system
|
||
+ 'windows-1252
|
||
+ (list
|
||
+ (list #x80 (decode-char 'ucs #x20AC)) ;; EURO SIGN
|
||
+ (list #x82 (decode-char 'ucs #x201A)) ;; SINGLE LOW-9 QUOTATION MARK
|
||
+ (list #x83 (decode-char 'ucs #x0192)) ;; LATIN SMALL LETTER F WITH HOOK
|
||
+ (list #x84 (decode-char 'ucs #x201E)) ;; DOUBLE LOW-9 QUOTATION MARK
|
||
+ (list #x85 (decode-char 'ucs #x2026)) ;; HORIZONTAL ELLIPSIS
|
||
+ (list #x86 (decode-char 'ucs #x2020)) ;; DAGGER
|
||
+ (list #x87 (decode-char 'ucs #x2021)) ;; DOUBLE DAGGER
|
||
+ (list #x88 (decode-char 'ucs #x02C6)) ;; MODIFIER LETTER CIRCUMFLEX ACCENT
|
||
+ (list #x89 (decode-char 'ucs #x2030)) ;; PER MILLE SIGN
|
||
+ (list #x8A (decode-char 'ucs #x0160)) ;; LATIN CAPITAL LETTER S WITH CARON
|
||
+ (list #x8B (decode-char 'ucs #x2039)) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK
|
||
+ (list #x8C (decode-char 'ucs #x0152)) ;; LATIN CAPITAL LIGATURE OE
|
||
+ (list #x8E (decode-char 'ucs #x017D)) ;; LATIN CAPITAL LETTER Z WITH CARON
|
||
+ (list #x91 (decode-char 'ucs #x2018)) ;; LEFT SINGLE QUOTATION MARK
|
||
+ (list #x92 (decode-char 'ucs #x2019)) ;; RIGHT SINGLE QUOTATION MARK
|
||
+ (list #x93 (decode-char 'ucs #x201C)) ;; LEFT DOUBLE QUOTATION MARK
|
||
+ (list #x94 (decode-char 'ucs #x201D)) ;; RIGHT DOUBLE QUOTATION MARK
|
||
+ (list #x95 (decode-char 'ucs #x2022)) ;; BULLET
|
||
+ (list #x96 (decode-char 'ucs #x2013)) ;; EN DASH
|
||
+ (list #x97 (decode-char 'ucs #x2014)) ;; EM DASH
|
||
+ (list #x98 (decode-char 'ucs #x02DC)) ;; SMALL TILDE
|
||
+ (list #x99 (decode-char 'ucs #x2122)) ;; TRADE MARK SIGN
|
||
+ (list #x9A (decode-char 'ucs #x0161)) ;; LATIN SMALL LETTER S WITH CARON
|
||
+ (list #x9B (decode-char 'ucs #x203A)) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
|
||
+ (list #x9C (decode-char 'ucs #x0153)) ;; LATIN SMALL LIGATURE OE
|
||
+ (list #x9E (decode-char 'ucs #x017E)) ;; LATIN SMALL LETTER Z WITH CARON
|
||
+ (list #x9F (decode-char 'ucs #x0178)));; LATIN CAPITAL LETTER Y WITH DIAERESIS
|
||
+ "Microsoft's Code Page 1252, for Western Europe and the Americas."
|
||
+ '(mnemonic "cp1252"
|
||
+ documentation
|
||
+ "This is an extension of ISO 8859-1 that provides the Euro sign and
|
||
+several punctuation marks not otherwise available in ISO 8859 1. It is
|
||
+incompatible with ISO 2022, which is not a problem in the regions
|
||
+where it is used. "
|
||
+ aliases (cp1252)))
|
||
+
|
||
;; This is a utility function; we don't want it in the dumped XEmacs.
|
||
|
||
(fmakunbound 'setup-case-pairs)
|