Mercurial > hg > xemacs-beta

changeset 2575:e71117a6ddac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-02-09 15:29:07 by aidan] 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.
author aidan
date Wed, 09 Feb 2005 15:29:12 +0000
parents 5e2653bc0ab0
children c4235ee1f733
files lisp/ChangeLog lisp/mule/european.el lisp/unicode.el
diffstat 3 files changed, 44 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Feb 08 23:59:51 2005 +0000
+++ b/lisp/ChangeLog	Wed Feb 09 15:29:12 2005 +0000
@@ -1,3 +1,15 @@
+2005-02-09  Aidan Kehoe  <kehoea@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@parhasard.net>
+
+	* unicode.el (load-unicode-tables):
+	  Initialise mapping tables for ISO
+	8859-16--cf. s3tk6pieyuk.fsf@magellan.suse.de , DOUBLE LOW-9
+	QUOTATION MARK is very much used for German and in Central Europe.
+
 2005-02-09  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* unicode.el: 
--- a/lisp/mule/european.el	Tue Feb 08 23:59:51 2005 +0000
+++ b/lisp/mule/european.el	Wed Feb 09 15:29:12 2005 +0000
@@ -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'
@@ -351,6 +372,15 @@
    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
 				    ;; entirely
--- a/lisp/unicode.el	Tue Feb 08 23:59:51 2005 +0000
+++ b/lisp/unicode.el	Wed Feb 09 15:29:12 2005 +0000
@@ -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)