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)