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&gt; + * 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&gt; + + * 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&gt; + * 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