CVS update by aidan MODIFIED: xemacs/lisp/mule ...
User: aidan
Date: 05/02/09 16:29:12
Modified: xemacs/lisp/mule european.el
Log:
Add support and Unicode mapping tables for ISO 8859-16 by default. Not
_quite_ the one-line change I thought it would be, but very trivial for all
that.
Revision Changes Path
1.636 +12 -0 XEmacs/xemacs/lisp/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.635
retrieving revision 1.636
diff -u -r1.635 -r1.636
--- ChangeLog 2005/02/08 23:59:50 1.635
+++ ChangeLog 2005/02/09 15:29:07 1.636
＠＠ -1,5 +1,17 ＠＠
2005-02-09 Aidan Kehoe <kehoea(a)parhasard.net>
+ * mule/european.el: Create the 8859-16 character set and coding system.
+ * mule/european.el (latin-iso8859-16): Make the character set available.
+
+2005-02-09 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * unicode.el (load-unicode-tables):
+ Initialise mapping tables for ISO
+ 8859-16--cf. s3tk6pieyuk.fsf(a)magellan.suse.de , DOUBLE LOW-9
+ QUOTATION MARK is very much used for German and in Central Europe.
+
+2005-02-09 Aidan Kehoe <kehoea(a)parhasard.net>
+
* unicode.el:
Add coding system aliases for utf-16-be and utf-16-le, for
improved compatibility with Mule-UCS and the FSF.
1.11 +1 -0 XEmacs/xemacs/lisp/unicode.el
Index: unicode.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/unicode.el,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- unicode.el 2005/02/08 23:59:51 1.10
+++ unicode.el 2005/02/09 15:29:07 1.11
＠＠ -101,6 +101,7 ＠＠
;; "8859-13.TXT"
("8859-14.TXT" latin-iso8859-14 #xA0 #xFF #x-80)
("8859-15.TXT" latin-iso8859-15 #xA0 #xFF #x-80)
+ ("8859-16.TXT" latin-iso8859-16 #xA0 #xFF #x-80)
("8859-2.TXT" latin-iso8859-2 #xA0 #xFF #x-80)
("8859-3.TXT" latin-iso8859-3 #xA0 #xFF #x-80)
("8859-4.TXT" latin-iso8859-4 #xA0 #xFF #x-80)
1.10 +31 -1 XEmacs/xemacs/lisp/mule/european.el
Index: european.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/european.el,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- european.el 2002/06/04 06:04:29 1.9
+++ european.el 2005/02/09 15:29:12 1.10
＠＠ -27,7 +27,7 ＠＠
;;; Commentary:
-;; For Europeans, six coded character sets ISO8859-1,2,3,4,9 are supported.
+;; For Europeans, seven coded character sets ISO8859-1,2,3,4,9,10 are supported.
;; Note: ISO 8859/15 (Latin-9) is supported via the latin-unity package.
;; #### latin.el would be a better name for this file.
＠＠ -131,6 +131,27 ＠＠
long-name "RHP of Latin-8 (ISO 8859-14)"
))
+(make-charset 'latin-iso8859-16
+ "Right-Hand Part of Latin Alphabet 10 (ISO/IEC 8859-16)"
+ '(dimension
+ 1
+ registry "ISO8859-16"
+ chars 96
+ columns 1
+ direction l2r
+ final ?f ; octet 06/06; cf ISO-IR 226
+ graphic 1
+ short-name "RHP of Latin-10"
+ long-name "RHP of Latin-10 (ISO 8859-16)"
+ ))
+
+(loop for c from 64 to 127
+ do (modify-syntax-entry (make-char 'latin-iso8859-16 c) "w"))
+(mapc (lambda (c)
+ (modify-syntax-entry (make-char 'latin-iso8859-16 c) "w"))
+ '(#xA1 #xA2 #xA3 #xA6 #xA8 #xAA #xAC #xAE #xAF
+ #xB3 #xB4 #xB5 #xB8 #xB9 #xBA #xBC #xBD #xBE #xBF))
+
;; For syntax of Latin-1 characters.
(loop for c from 64 to 127 ; from ',A＠(B' to ',A(B'
＠＠ -350,6 +371,15 ＠＠
charset-g3 t
mnemonic "MIME/Ltn-5"
))
+
+;; Add a coding system for ISO 8859-16.
+(make-coding-system
+ 'iso-8859-16 'iso2022 "MIME ISO-8859-16"
+ '(charset-g0 ascii
+ charset-g1 latin-iso8859-16
+ charset-g2 t ; grrr
+ charset-g3 t ; grrr
+ mnemonic "MIME/Ltn-10"))
(loop for ((charset codesys default-input nice-charset-1 nice-charset-2
supported-langs ;; a list if the doc string is replaced