Commits

Anonymous committed 3d4894c

conditionally depend on mule-ucs <87vg3ihmwk.fsf@tleepslib.sk.tsukuba.ac.jp>

  • Participants
  • Parent commits fc3b781

Comments (0)

Files changed (4)

+2002-10-31  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* Makefile (latin-unity-tables.el): Use BOOT_XEMACS.  Improve warning.
+	(REQUIRES): Conditionally depend on existence of ../mule-ucs.
+
+	* latin-unity-utils.el: Fix typos in charset names.
+	Delete comment documenting old way to do tables.
+	(latin-unity-dump-tables): Don't prompt for confirmation when
+	overwriting latin-unity-tables.el.  Check for
+	latin-unity-tables.el when Unicode support is not available.
+
 2002-10-30  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* latin-unity-utils.el: Add progress messages for hardcoded charsets.
 MAINTAINER = Stephen J. Turnbull <stephen@xemacs.org>
 PACKAGE = latin-unity
 PKG_TYPE = regular
+CATEGORY = mule
+
 # The Mule-UCS, leim, and fsf-compat requires will go away at some point
+ifeq ($(wildcard ../mule-ucs),)
+REQUIRES = mule-base leim fsf-compat dired
+else
 REQUIRES = mule-base mule-ucs leim fsf-compat dired
-CATEGORY = mule
+endif
 
 ELCS = latin-unity.elc latin-unity-vars.elc latin-euro-input.elc \
        latin-unity-latin7.elc latin-latin7-input.elc latin-unity-latin9.elc \
 
 # Experimental rule to build latin-unity-tables.el.
 latin-unity-tables.el: latin-unity-vars.elc latin-unity-utils.elc
-	@echo "*** Warnings about ISO 8859/3 are OK; it doesn't use all code points. ***"
-	$(XEMACS) -batch -no-autoloads -l dired \
-		-eval '(setq load-path (cons (default-directory) load-path))' \
-		-l latin-unity-utils -f latin-unity-dump-tables
+	$(BOOT_XEMACS) -l latin-unity-utils -f latin-unity-dump-tables
+	@echo "*** You may see a few warnings about ISO 8859/3. ***"
+	@echo "*** This is OK; it doesn't use all code points.  ***"
 
 clean:: tableclean
 

latin-unity-tables.el

 ;;; latin-unity-tables.el --- initialize latin-unity-equivalences
 ;; Do not edit --- automatically generated.
-;; Created: 2002 October 30
+;; Created: 2002 October 31
 (provide 'latin-unity-tables)
 (defconst latin-unity-equivalences
   (let ((table (make-char-table 'generic)))
     (put-char-table (make-char 'latin-iso8859-13 125) (vector #x126 nil (make-char 'latin-iso8859-2 63) (make-char 'latin-iso8859-3 63) nil nil (make-char 'latin-iso8859-13 125) nil nil (make-char 'latin-iso8859-16 63) nil nil nil) table)
     (put-char-table (make-char 'latin-iso8859-13 126) (vector #x1AA nil (make-char 'latin-iso8859-2 62) nil (make-char 'latin-iso8859-4 62) nil (make-char 'latin-iso8859-13 126) nil (make-char 'latin-iso8859-15 56) (make-char 'latin-iso8859-16 56) nil nil nil) table)
     (put-char-table (make-char 'latin-iso8859-13 127) (vector #x20 nil nil nil nil nil (make-char 'latin-iso8859-13 127) nil nil nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 32) (vector #x1FF (make-char 'latin-iso8859-1 32) (make-char 'latin-iso8859-2 32) (make-char 'latin-iso8859-3 32) (make-char 'latin-iso8859-4 32) (make-char 'latin-iso8859-9 32) (make-char 'latin-iso8859-13 32) (make-char 'latin-iso8859-14 32) (make-char 'latin-iso8859-15 32) (make-char 'latin-iso8859-16 32) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 33) (vector #x91 (make-char 'latin-iso8859-1 33) nil nil nil (make-char 'latin-iso8859-9 33) nil nil (make-char 'latin-iso8859-15 33) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 34) (vector #xB1 (make-char 'latin-iso8859-1 34) nil nil nil (make-char 'latin-iso8859-9 34) (make-char 'latin-iso8859-13 34) nil (make-char 'latin-iso8859-15 34) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 35) (vector #xF5 (make-char 'latin-iso8859-1 35) nil (make-char 'latin-iso8859-3 35) nil (make-char 'latin-iso8859-9 35) (make-char 'latin-iso8859-13 35) (make-char 'latin-iso8859-14 35) (make-char 'latin-iso8859-15 35) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 36) (vector #x180 nil nil nil nil nil nil nil (make-char 'latin-iso8859-15 36) (make-char 'latin-iso8859-16 36) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 37) (vector #x491 (make-char 'latin-iso8859-1 37) nil nil nil (make-char 'latin-iso8859-9 37) nil nil (make-char 'latin-iso8859-15 37) nil nil (make-char 'latin-jisx0201 92) nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 38) (vector #x1AA nil (make-char 'latin-iso8859-2 41) nil (make-char 'latin-iso8859-4 41) nil (make-char 'latin-iso8859-13 80) nil (make-char 'latin-iso8859-15 38) (make-char 'latin-iso8859-16 38) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 39) (vector #x1FF (make-char 'latin-iso8859-1 39) (make-char 'latin-iso8859-2 39) (make-char 'latin-iso8859-3 39) (make-char 'latin-iso8859-4 39) (make-char 'latin-iso8859-9 39) (make-char 'latin-iso8859-13 39) (make-char 'latin-iso8859-14 39) (make-char 'latin-iso8859-15 39) (make-char 'latin-iso8859-16 39) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 40) (vector #x1AA nil (make-char 'latin-iso8859-2 57) nil (make-char 'latin-iso8859-4 57) nil (make-char 'latin-iso8859-13 112) nil (make-char 'latin-iso8859-15 40) (make-char 'latin-iso8859-16 40) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 41) (vector #x1F1 (make-char 'latin-iso8859-1 41) nil nil nil (make-char 'latin-iso8859-9 41) (make-char 'latin-iso8859-13 41) (make-char 'latin-iso8859-14 41) (make-char 'latin-iso8859-15 41) (make-char 'latin-iso8859-16 41) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 42) (vector #x91 (make-char 'latin-iso8859-1 42) nil nil nil (make-char 'latin-iso8859-9 42) nil nil (make-char 'latin-iso8859-15 42) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 43) (vector #x1B1 (make-char 'latin-iso8859-1 43) nil nil nil (make-char 'latin-iso8859-9 43) (make-char 'latin-iso8859-13 43) nil (make-char 'latin-iso8859-15 43) (make-char 'latin-iso8859-16 43) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 44) (vector #xB1 (make-char 'latin-iso8859-1 44) nil nil nil (make-char 'latin-iso8859-9 44) (make-char 'latin-iso8859-13 44) nil (make-char 'latin-iso8859-15 44) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 45) (vector #x1FF (make-char 'latin-iso8859-1 45) (make-char 'latin-iso8859-2 45) (make-char 'latin-iso8859-3 45) (make-char 'latin-iso8859-4 45) (make-char 'latin-iso8859-9 45) (make-char 'latin-iso8859-13 45) (make-char 'latin-iso8859-14 45) (make-char 'latin-iso8859-15 45) (make-char 'latin-iso8859-16 45) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 46) (vector #xF1 (make-char 'latin-iso8859-1 46) nil nil nil (make-char 'latin-iso8859-9 46) (make-char 'latin-iso8859-13 46) (make-char 'latin-iso8859-14 46) (make-char 'latin-iso8859-15 46) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 47) (vector #x99 (make-char 'latin-iso8859-1 47) nil nil (make-char 'latin-iso8859-4 47) (make-char 'latin-iso8859-9 47) nil nil (make-char 'latin-iso8859-15 47) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 48) (vector #x1BF (make-char 'latin-iso8859-1 48) (make-char 'latin-iso8859-2 48) (make-char 'latin-iso8859-3 48) (make-char 'latin-iso8859-4 48) (make-char 'latin-iso8859-9 48) (make-char 'latin-iso8859-13 48) nil (make-char 'latin-iso8859-15 48) (make-char 'latin-iso8859-16 48) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 49) (vector #x1B1 (make-char 'latin-iso8859-1 49) nil nil nil (make-char 'latin-iso8859-9 49) (make-char 'latin-iso8859-13 49) nil (make-char 'latin-iso8859-15 49) (make-char 'latin-iso8859-16 49) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 50) (vector #xB5 (make-char 'latin-iso8859-1 50) nil (make-char 'latin-iso8859-3 50) nil (make-char 'latin-iso8859-9 50) (make-char 'latin-iso8859-13 50) nil (make-char 'latin-iso8859-15 50) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 51) (vector #xB5 (make-char 'latin-iso8859-1 51) nil (make-char 'latin-iso8859-3 51) nil (make-char 'latin-iso8859-9 51) (make-char 'latin-iso8859-13 51) nil (make-char 'latin-iso8859-15 51) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 52) (vector #x1AA nil (make-char 'latin-iso8859-2 46) nil (make-char 'latin-iso8859-4 46) nil (make-char 'latin-iso8859-13 94) nil (make-char 'latin-iso8859-15 52) (make-char 'latin-iso8859-16 52) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 53) (vector #xB5 (make-char 'latin-iso8859-1 53) nil (make-char 'latin-iso8859-3 53) nil (make-char 'latin-iso8859-9 53) (make-char 'latin-iso8859-13 53) nil (make-char 'latin-iso8859-15 53) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 54) (vector #x1F1 (make-char 'latin-iso8859-1 54) nil nil nil (make-char 'latin-iso8859-9 54) (make-char 'latin-iso8859-13 54) (make-char 'latin-iso8859-14 54) (make-char 'latin-iso8859-15 54) (make-char 'latin-iso8859-16 54) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 55) (vector #x1B5 (make-char 'latin-iso8859-1 55) nil (make-char 'latin-iso8859-3 55) nil (make-char 'latin-iso8859-9 55) (make-char 'latin-iso8859-13 55) nil (make-char 'latin-iso8859-15 55) (make-char 'latin-iso8859-16 55) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 56) (vector #x1AA nil (make-char 'latin-iso8859-2 62) nil (make-char 'latin-iso8859-4 62) nil (make-char 'latin-iso8859-13 126) nil (make-char 'latin-iso8859-15 56) (make-char 'latin-iso8859-16 56) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 57) (vector #xB1 (make-char 'latin-iso8859-1 57) nil nil nil (make-char 'latin-iso8859-9 57) (make-char 'latin-iso8859-13 57) nil (make-char 'latin-iso8859-15 57) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 58) (vector #x91 (make-char 'latin-iso8859-1 58) nil nil nil (make-char 'latin-iso8859-9 58) nil nil (make-char 'latin-iso8859-15 58) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 59) (vector #x1B1 (make-char 'latin-iso8859-1 59) nil nil nil (make-char 'latin-iso8859-9 59) (make-char 'latin-iso8859-13 59) nil (make-char 'latin-iso8859-15 59) (make-char 'latin-iso8859-16 59) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 60) (vector #x180 nil nil nil nil nil nil nil (make-char 'latin-iso8859-15 60) (make-char 'latin-iso8859-16 60) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 61) (vector #x180 nil nil nil nil nil nil nil (make-char 'latin-iso8859-15 61) (make-char 'latin-iso8859-16 61) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 62) (vector #x1C0 nil nil nil nil nil nil (make-char 'latin-iso8859-14 47) (make-char 'latin-iso8859-15 62) (make-char 'latin-iso8859-16 62) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 63) (vector #x91 (make-char 'latin-iso8859-1 63) nil nil nil (make-char 'latin-iso8859-9 63) nil nil (make-char 'latin-iso8859-15 63) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 64) (vector #x1D5 (make-char 'latin-iso8859-1 64) nil (make-char 'latin-iso8859-3 64) nil (make-char 'latin-iso8859-9 64) nil (make-char 'latin-iso8859-14 64) (make-char 'latin-iso8859-15 64) (make-char 'latin-iso8859-16 64) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 65) (vector #x1DF (make-char 'latin-iso8859-1 65) (make-char 'latin-iso8859-2 65) (make-char 'latin-iso8859-3 65) (make-char 'latin-iso8859-4 65) (make-char 'latin-iso8859-9 65) nil (make-char 'latin-iso8859-14 65) (make-char 'latin-iso8859-15 65) (make-char 'latin-iso8859-16 65) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 66) (vector #x1DF (make-char 'latin-iso8859-1 66) (make-char 'latin-iso8859-2 66) (make-char 'latin-iso8859-3 66) (make-char 'latin-iso8859-4 66) (make-char 'latin-iso8859-9 66) nil (make-char 'latin-iso8859-14 66) (make-char 'latin-iso8859-15 66) (make-char 'latin-iso8859-16 66) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 67) (vector #xD9 (make-char 'latin-iso8859-1 67) nil nil (make-char 'latin-iso8859-4 67) (make-char 'latin-iso8859-9 67) nil (make-char 'latin-iso8859-14 67) (make-char 'latin-iso8859-15 67) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 68) (vector #x1FF (make-char 'latin-iso8859-1 68) (make-char 'latin-iso8859-2 68) (make-char 'latin-iso8859-3 68) (make-char 'latin-iso8859-4 68) (make-char 'latin-iso8859-9 68) (make-char 'latin-iso8859-13 68) (make-char 'latin-iso8859-14 68) (make-char 'latin-iso8859-15 68) (make-char 'latin-iso8859-16 68) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 69) (vector #xF9 (make-char 'latin-iso8859-1 69) nil nil (make-char 'latin-iso8859-4 69) (make-char 'latin-iso8859-9 69) (make-char 'latin-iso8859-13 69) (make-char 'latin-iso8859-14 69) (make-char 'latin-iso8859-15 69) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 70) (vector #x1F9 (make-char 'latin-iso8859-1 70) nil nil (make-char 'latin-iso8859-4 70) (make-char 'latin-iso8859-9 70) (make-char 'latin-iso8859-13 47) (make-char 'latin-iso8859-14 70) (make-char 'latin-iso8859-15 70) (make-char 'latin-iso8859-16 70) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 71) (vector #x1D7 (make-char 'latin-iso8859-1 71) (make-char 'latin-iso8859-2 71) (make-char 'latin-iso8859-3 71) nil (make-char 'latin-iso8859-9 71) nil (make-char 'latin-iso8859-14 71) (make-char 'latin-iso8859-15 71) (make-char 'latin-iso8859-16 71) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 72) (vector #x1D5 (make-char 'latin-iso8859-1 72) nil (make-char 'latin-iso8859-3 72) nil (make-char 'latin-iso8859-9 72) nil (make-char 'latin-iso8859-14 72) (make-char 'latin-iso8859-15 72) (make-char 'latin-iso8859-16 72) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 73) (vector #x1FF (make-char 'latin-iso8859-1 73) (make-char 'latin-iso8859-2 73) (make-char 'latin-iso8859-3 73) (make-char 'latin-iso8859-4 73) (make-char 'latin-iso8859-9 73) (make-char 'latin-iso8859-13 73) (make-char 'latin-iso8859-14 73) (make-char 'latin-iso8859-15 73) (make-char 'latin-iso8859-16 73) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 74) (vector #x1D5 (make-char 'latin-iso8859-1 74) nil (make-char 'latin-iso8859-3 74) nil (make-char 'latin-iso8859-9 74) nil (make-char 'latin-iso8859-14 74) (make-char 'latin-iso8859-15 74) (make-char 'latin-iso8859-16 74) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 75) (vector #x1DF (make-char 'latin-iso8859-1 75) (make-char 'latin-iso8859-2 75) (make-char 'latin-iso8859-3 75) (make-char 'latin-iso8859-4 75) (make-char 'latin-iso8859-9 75) nil (make-char 'latin-iso8859-14 75) (make-char 'latin-iso8859-15 75) (make-char 'latin-iso8859-16 75) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 76) (vector #x1D5 (make-char 'latin-iso8859-1 76) nil (make-char 'latin-iso8859-3 76) nil (make-char 'latin-iso8859-9 76) nil (make-char 'latin-iso8859-14 76) (make-char 'latin-iso8859-15 76) (make-char 'latin-iso8859-16 76) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 77) (vector #x1DF (make-char 'latin-iso8859-1 77) (make-char 'latin-iso8859-2 77) (make-char 'latin-iso8859-3 77) (make-char 'latin-iso8859-4 77) (make-char 'latin-iso8859-9 77) nil (make-char 'latin-iso8859-14 77) (make-char 'latin-iso8859-15 77) (make-char 'latin-iso8859-16 77) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 78) (vector #x1DF (make-char 'latin-iso8859-1 78) (make-char 'latin-iso8859-2 78) (make-char 'latin-iso8859-3 78) (make-char 'latin-iso8859-4 78) (make-char 'latin-iso8859-9 78) nil (make-char 'latin-iso8859-14 78) (make-char 'latin-iso8859-15 78) (make-char 'latin-iso8859-16 78) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 79) (vector #x1D5 (make-char 'latin-iso8859-1 79) nil (make-char 'latin-iso8859-3 79) nil (make-char 'latin-iso8859-9 79) nil (make-char 'latin-iso8859-14 79) (make-char 'latin-iso8859-15 79) (make-char 'latin-iso8859-16 79) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 80) (vector #x81 (make-char 'latin-iso8859-1 80) nil nil nil nil nil nil (make-char 'latin-iso8859-15 80) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 81) (vector #xD5 (make-char 'latin-iso8859-1 81) nil (make-char 'latin-iso8859-3 81) nil (make-char 'latin-iso8859-9 81) nil (make-char 'latin-iso8859-14 81) (make-char 'latin-iso8859-15 81) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 82) (vector #x1D5 (make-char 'latin-iso8859-1 82) nil (make-char 'latin-iso8859-3 82) nil (make-char 'latin-iso8859-9 82) nil (make-char 'latin-iso8859-14 82) (make-char 'latin-iso8859-15 82) (make-char 'latin-iso8859-16 82) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 83) (vector #x1F7 (make-char 'latin-iso8859-1 83) (make-char 'latin-iso8859-2 83) (make-char 'latin-iso8859-3 83) nil (make-char 'latin-iso8859-9 83) (make-char 'latin-iso8859-13 83) (make-char 'latin-iso8859-14 83) (make-char 'latin-iso8859-15 83) (make-char 'latin-iso8859-16 83) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 84) (vector #x1DF (make-char 'latin-iso8859-1 84) (make-char 'latin-iso8859-2 84) (make-char 'latin-iso8859-3 84) (make-char 'latin-iso8859-4 84) (make-char 'latin-iso8859-9 84) nil (make-char 'latin-iso8859-14 84) (make-char 'latin-iso8859-15 84) (make-char 'latin-iso8859-16 84) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 85) (vector #xF9 (make-char 'latin-iso8859-1 85) nil nil (make-char 'latin-iso8859-4 85) (make-char 'latin-iso8859-9 85) (make-char 'latin-iso8859-13 85) (make-char 'latin-iso8859-14 85) (make-char 'latin-iso8859-15 85) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 86) (vector #x1FF (make-char 'latin-iso8859-1 86) (make-char 'latin-iso8859-2 86) (make-char 'latin-iso8859-3 86) (make-char 'latin-iso8859-4 86) (make-char 'latin-iso8859-9 86) (make-char 'latin-iso8859-13 86) (make-char 'latin-iso8859-14 86) (make-char 'latin-iso8859-15 86) (make-char 'latin-iso8859-16 86) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 87) (vector #xBF (make-char 'latin-iso8859-1 87) (make-char 'latin-iso8859-2 87) (make-char 'latin-iso8859-3 87) (make-char 'latin-iso8859-4 87) (make-char 'latin-iso8859-9 87) (make-char 'latin-iso8859-13 87) nil (make-char 'latin-iso8859-15 87) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 88) (vector #xF9 (make-char 'latin-iso8859-1 88) nil nil (make-char 'latin-iso8859-4 88) (make-char 'latin-iso8859-9 88) (make-char 'latin-iso8859-13 40) (make-char 'latin-iso8859-14 88) (make-char 'latin-iso8859-15 88) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 89) (vector #x1D5 (make-char 'latin-iso8859-1 89) nil (make-char 'latin-iso8859-3 89) nil (make-char 'latin-iso8859-9 89) nil (make-char 'latin-iso8859-14 89) (make-char 'latin-iso8859-15 89) (make-char 'latin-iso8859-16 89) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 90) (vector #x1DF (make-char 'latin-iso8859-1 90) (make-char 'latin-iso8859-2 90) (make-char 'latin-iso8859-3 90) (make-char 'latin-iso8859-4 90) (make-char 'latin-iso8859-9 90) nil (make-char 'latin-iso8859-14 90) (make-char 'latin-iso8859-15 90) (make-char 'latin-iso8859-16 90) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 91) (vector #x1DD (make-char 'latin-iso8859-1 91) nil (make-char 'latin-iso8859-3 91) (make-char 'latin-iso8859-4 91) (make-char 'latin-iso8859-9 91) nil (make-char 'latin-iso8859-14 91) (make-char 'latin-iso8859-15 91) (make-char 'latin-iso8859-16 91) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 92) (vector #x1FF (make-char 'latin-iso8859-1 92) (make-char 'latin-iso8859-2 92) (make-char 'latin-iso8859-3 92) (make-char 'latin-iso8859-4 92) (make-char 'latin-iso8859-9 92) (make-char 'latin-iso8859-13 92) (make-char 'latin-iso8859-14 92) (make-char 'latin-iso8859-15 92) (make-char 'latin-iso8859-16 92) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 93) (vector #xC3 (make-char 'latin-iso8859-1 93) (make-char 'latin-iso8859-2 93) nil nil nil nil (make-char 'latin-iso8859-14 93) (make-char 'latin-iso8859-15 93) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 94) (vector #x81 (make-char 'latin-iso8859-1 94) nil nil nil nil nil nil (make-char 'latin-iso8859-15 94) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 95) (vector #x1FF (make-char 'latin-iso8859-1 95) (make-char 'latin-iso8859-2 95) (make-char 'latin-iso8859-3 95) (make-char 'latin-iso8859-4 95) (make-char 'latin-iso8859-9 95) (make-char 'latin-iso8859-13 95) (make-char 'latin-iso8859-14 95) (make-char 'latin-iso8859-15 95) (make-char 'latin-iso8859-16 95) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 96) (vector #x1D5 (make-char 'latin-iso8859-1 96) nil (make-char 'latin-iso8859-3 96) nil (make-char 'latin-iso8859-9 96) nil (make-char 'latin-iso8859-14 96) (make-char 'latin-iso8859-15 96) (make-char 'latin-iso8859-16 96) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 97) (vector #x1DF (make-char 'latin-iso8859-1 97) (make-char 'latin-iso8859-2 97) (make-char 'latin-iso8859-3 97) (make-char 'latin-iso8859-4 97) (make-char 'latin-iso8859-9 97) nil (make-char 'latin-iso8859-14 97) (make-char 'latin-iso8859-15 97) (make-char 'latin-iso8859-16 97) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 98) (vector #x1DF (make-char 'latin-iso8859-1 98) (make-char 'latin-iso8859-2 98) (make-char 'latin-iso8859-3 98) (make-char 'latin-iso8859-4 98) (make-char 'latin-iso8859-9 98) nil (make-char 'latin-iso8859-14 98) (make-char 'latin-iso8859-15 98) (make-char 'latin-iso8859-16 98) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 99) (vector #xD9 (make-char 'latin-iso8859-1 99) nil nil (make-char 'latin-iso8859-4 99) (make-char 'latin-iso8859-9 99) nil (make-char 'latin-iso8859-14 99) (make-char 'latin-iso8859-15 99) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 100) (vector #x1FF (make-char 'latin-iso8859-1 100) (make-char 'latin-iso8859-2 100) (make-char 'latin-iso8859-3 100) (make-char 'latin-iso8859-4 100) (make-char 'latin-iso8859-9 100) (make-char 'latin-iso8859-13 100) (make-char 'latin-iso8859-14 100) (make-char 'latin-iso8859-15 100) (make-char 'latin-iso8859-16 100) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 101) (vector #xF9 (make-char 'latin-iso8859-1 101) nil nil (make-char 'latin-iso8859-4 101) (make-char 'latin-iso8859-9 101) (make-char 'latin-iso8859-13 101) (make-char 'latin-iso8859-14 101) (make-char 'latin-iso8859-15 101) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 102) (vector #x1F9 (make-char 'latin-iso8859-1 102) nil nil (make-char 'latin-iso8859-4 102) (make-char 'latin-iso8859-9 102) (make-char 'latin-iso8859-13 63) (make-char 'latin-iso8859-14 102) (make-char 'latin-iso8859-15 102) (make-char 'latin-iso8859-16 102) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 103) (vector #x1D7 (make-char 'latin-iso8859-1 103) (make-char 'latin-iso8859-2 103) (make-char 'latin-iso8859-3 103) nil (make-char 'latin-iso8859-9 103) nil (make-char 'latin-iso8859-14 103) (make-char 'latin-iso8859-15 103) (make-char 'latin-iso8859-16 103) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 104) (vector #x1D5 (make-char 'latin-iso8859-1 104) nil (make-char 'latin-iso8859-3 104) nil (make-char 'latin-iso8859-9 104) nil (make-char 'latin-iso8859-14 104) (make-char 'latin-iso8859-15 104) (make-char 'latin-iso8859-16 104) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 105) (vector #x1FF (make-char 'latin-iso8859-1 105) (make-char 'latin-iso8859-2 105) (make-char 'latin-iso8859-3 105) (make-char 'latin-iso8859-4 105) (make-char 'latin-iso8859-9 105) (make-char 'latin-iso8859-13 105) (make-char 'latin-iso8859-14 105) (make-char 'latin-iso8859-15 105) (make-char 'latin-iso8859-16 105) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 106) (vector #x1D5 (make-char 'latin-iso8859-1 106) nil (make-char 'latin-iso8859-3 106) nil (make-char 'latin-iso8859-9 106) nil (make-char 'latin-iso8859-14 106) (make-char 'latin-iso8859-15 106) (make-char 'latin-iso8859-16 106) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 107) (vector #x1DF (make-char 'latin-iso8859-1 107) (make-char 'latin-iso8859-2 107) (make-char 'latin-iso8859-3 107) (make-char 'latin-iso8859-4 107) (make-char 'latin-iso8859-9 107) nil (make-char 'latin-iso8859-14 107) (make-char 'latin-iso8859-15 107) (make-char 'latin-iso8859-16 107) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 108) (vector #x1D5 (make-char 'latin-iso8859-1 108) nil (make-char 'latin-iso8859-3 108) nil (make-char 'latin-iso8859-9 108) nil (make-char 'latin-iso8859-14 108) (make-char 'latin-iso8859-15 108) (make-char 'latin-iso8859-16 108) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 109) (vector #x1DF (make-char 'latin-iso8859-1 109) (make-char 'latin-iso8859-2 109) (make-char 'latin-iso8859-3 109) (make-char 'latin-iso8859-4 109) (make-char 'latin-iso8859-9 109) nil (make-char 'latin-iso8859-14 109) (make-char 'latin-iso8859-15 109) (make-char 'latin-iso8859-16 109) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 110) (vector #x1DF (make-char 'latin-iso8859-1 110) (make-char 'latin-iso8859-2 110) (make-char 'latin-iso8859-3 110) (make-char 'latin-iso8859-4 110) (make-char 'latin-iso8859-9 110) nil (make-char 'latin-iso8859-14 110) (make-char 'latin-iso8859-15 110) (make-char 'latin-iso8859-16 110) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 111) (vector #x1D5 (make-char 'latin-iso8859-1 111) nil (make-char 'latin-iso8859-3 111) nil (make-char 'latin-iso8859-9 111) nil (make-char 'latin-iso8859-14 111) (make-char 'latin-iso8859-15 111) (make-char 'latin-iso8859-16 111) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 112) (vector #x81 (make-char 'latin-iso8859-1 112) nil nil nil nil nil nil (make-char 'latin-iso8859-15 112) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 113) (vector #xD5 (make-char 'latin-iso8859-1 113) nil (make-char 'latin-iso8859-3 113) nil (make-char 'latin-iso8859-9 113) nil (make-char 'latin-iso8859-14 113) (make-char 'latin-iso8859-15 113) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 114) (vector #x1D5 (make-char 'latin-iso8859-1 114) nil (make-char 'latin-iso8859-3 114) nil (make-char 'latin-iso8859-9 114) nil (make-char 'latin-iso8859-14 114) (make-char 'latin-iso8859-15 114) (make-char 'latin-iso8859-16 114) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 115) (vector #x1F7 (make-char 'latin-iso8859-1 115) (make-char 'latin-iso8859-2 115) (make-char 'latin-iso8859-3 115) nil (make-char 'latin-iso8859-9 115) (make-char 'latin-iso8859-13 115) (make-char 'latin-iso8859-14 115) (make-char 'latin-iso8859-15 115) (make-char 'latin-iso8859-16 115) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 116) (vector #x1DF (make-char 'latin-iso8859-1 116) (make-char 'latin-iso8859-2 116) (make-char 'latin-iso8859-3 116) (make-char 'latin-iso8859-4 116) (make-char 'latin-iso8859-9 116) nil (make-char 'latin-iso8859-14 116) (make-char 'latin-iso8859-15 116) (make-char 'latin-iso8859-16 116) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 117) (vector #xF9 (make-char 'latin-iso8859-1 117) nil nil (make-char 'latin-iso8859-4 117) (make-char 'latin-iso8859-9 117) (make-char 'latin-iso8859-13 117) (make-char 'latin-iso8859-14 117) (make-char 'latin-iso8859-15 117) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 118) (vector #x1FF (make-char 'latin-iso8859-1 118) (make-char 'latin-iso8859-2 118) (make-char 'latin-iso8859-3 118) (make-char 'latin-iso8859-4 118) (make-char 'latin-iso8859-9 118) (make-char 'latin-iso8859-13 118) (make-char 'latin-iso8859-14 118) (make-char 'latin-iso8859-15 118) (make-char 'latin-iso8859-16 118) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 119) (vector #xBF (make-char 'latin-iso8859-1 119) (make-char 'latin-iso8859-2 119) (make-char 'latin-iso8859-3 119) (make-char 'latin-iso8859-4 119) (make-char 'latin-iso8859-9 119) (make-char 'latin-iso8859-13 119) nil (make-char 'latin-iso8859-15 119) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 120) (vector #xF9 (make-char 'latin-iso8859-1 120) nil nil (make-char 'latin-iso8859-4 120) (make-char 'latin-iso8859-9 120) (make-char 'latin-iso8859-13 56) (make-char 'latin-iso8859-14 120) (make-char 'latin-iso8859-15 120) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 121) (vector #x1D5 (make-char 'latin-iso8859-1 121) nil (make-char 'latin-iso8859-3 121) nil (make-char 'latin-iso8859-9 121) nil (make-char 'latin-iso8859-14 121) (make-char 'latin-iso8859-15 121) (make-char 'latin-iso8859-16 121) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 122) (vector #x1DF (make-char 'latin-iso8859-1 122) (make-char 'latin-iso8859-2 122) (make-char 'latin-iso8859-3 122) (make-char 'latin-iso8859-4 122) (make-char 'latin-iso8859-9 122) nil (make-char 'latin-iso8859-14 122) (make-char 'latin-iso8859-15 122) (make-char 'latin-iso8859-16 122) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 123) (vector #x1DD (make-char 'latin-iso8859-1 123) nil (make-char 'latin-iso8859-3 123) (make-char 'latin-iso8859-4 123) (make-char 'latin-iso8859-9 123) nil (make-char 'latin-iso8859-14 123) (make-char 'latin-iso8859-15 123) (make-char 'latin-iso8859-16 123) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 124) (vector #x1FF (make-char 'latin-iso8859-1 124) (make-char 'latin-iso8859-2 124) (make-char 'latin-iso8859-3 124) (make-char 'latin-iso8859-4 124) (make-char 'latin-iso8859-9 124) (make-char 'latin-iso8859-13 124) (make-char 'latin-iso8859-14 124) (make-char 'latin-iso8859-15 124) (make-char 'latin-iso8859-16 124) nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 125) (vector #xC3 (make-char 'latin-iso8859-1 125) (make-char 'latin-iso8859-2 125) nil nil nil nil (make-char 'latin-iso8859-14 125) (make-char 'latin-iso8859-15 125) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 126) (vector #x81 (make-char 'latin-iso8859-1 126) nil nil nil nil nil nil (make-char 'latin-iso8859-15 126) nil nil nil nil) table)
+    (put-char-table (make-char 'latin-iso8859-15 127) (vector #x1D1 (make-char 'latin-iso8859-1 127) nil nil nil (make-char 'latin-iso8859-9 127) nil (make-char 'latin-iso8859-14 127) (make-char 'latin-iso8859-15 127) (make-char 'latin-iso8859-16 127) nil nil nil) table)
     (put-char-table (make-char 'latin-iso8859-14 32) (vector #x1FF (make-char 'latin-iso8859-1 32) (make-char 'latin-iso8859-2 32) (make-char 'latin-iso8859-3 32) (make-char 'latin-iso8859-4 32) (make-char 'latin-iso8859-9 32) (make-char 'latin-iso8859-13 32) (make-char 'latin-iso8859-14 32) (make-char 'latin-iso8859-15 32) (make-char 'latin-iso8859-16 32) nil nil nil) table)
     (put-char-table (make-char 'latin-iso8859-14 33) (vector #x40 nil nil nil nil nil nil (make-char 'latin-iso8859-14 33) nil nil nil nil nil) table)
     (put-char-table (make-char 'latin-iso8859-14 34) (vector #x40 nil nil nil nil nil nil (make-char 'latin-iso8859-14 34) nil nil nil nil nil) table)
     (put-char-table (make-char 'latin-iso8859-14 125) (vector #xC3 (make-char 'latin-iso8859-1 125) (make-char 'latin-iso8859-2 125) nil nil nil nil (make-char 'latin-iso8859-14 125) (make-char 'latin-iso8859-15 125) nil nil nil nil) table)
     (put-char-table (make-char 'latin-iso8859-14 126) (vector #x40 nil nil nil nil nil nil (make-char 'latin-iso8859-14 126) nil nil nil nil nil) table)
     (put-char-table (make-char 'latin-iso8859-14 127) (vector #x1D1 (make-char 'latin-iso8859-1 127) nil nil nil (make-char 'latin-iso8859-9 127) nil (make-char 'latin-iso8859-14 127) (make-char 'latin-iso8859-15 127) (make-char 'latin-iso8859-16 127) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 32) (vector #x1FF (make-char 'latin-iso8859-1 32) (make-char 'latin-iso8859-2 32) (make-char 'latin-iso8859-3 32) (make-char 'latin-iso8859-4 32) (make-char 'latin-iso8859-9 32) (make-char 'latin-iso8859-13 32) (make-char 'latin-iso8859-14 32) (make-char 'latin-iso8859-15 32) (make-char 'latin-iso8859-16 32) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 33) (vector #x91 (make-char 'latin-iso8859-1 33) nil nil nil (make-char 'latin-iso8859-9 33) nil nil (make-char 'latin-iso8859-15 33) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 34) (vector #xB1 (make-char 'latin-iso8859-1 34) nil nil nil (make-char 'latin-iso8859-9 34) (make-char 'latin-iso8859-13 34) nil (make-char 'latin-iso8859-15 34) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 35) (vector #xF5 (make-char 'latin-iso8859-1 35) nil (make-char 'latin-iso8859-3 35) nil (make-char 'latin-iso8859-9 35) (make-char 'latin-iso8859-13 35) (make-char 'latin-iso8859-14 35) (make-char 'latin-iso8859-15 35) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 36) (vector #x180 nil nil nil nil nil nil nil (make-char 'latin-iso8859-15 36) (make-char 'latin-iso8859-16 36) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 37) (vector #x491 (make-char 'latin-iso8859-1 37) nil nil nil (make-char 'latin-iso8859-9 37) nil nil (make-char 'latin-iso8859-15 37) nil nil (make-char 'latin-jisx0201 92) nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 38) (vector #x1AA nil (make-char 'latin-iso8859-2 41) nil (make-char 'latin-iso8859-4 41) nil (make-char 'latin-iso8859-13 80) nil (make-char 'latin-iso8859-15 38) (make-char 'latin-iso8859-16 38) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 39) (vector #x1FF (make-char 'latin-iso8859-1 39) (make-char 'latin-iso8859-2 39) (make-char 'latin-iso8859-3 39) (make-char 'latin-iso8859-4 39) (make-char 'latin-iso8859-9 39) (make-char 'latin-iso8859-13 39) (make-char 'latin-iso8859-14 39) (make-char 'latin-iso8859-15 39) (make-char 'latin-iso8859-16 39) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 40) (vector #x1AA nil (make-char 'latin-iso8859-2 57) nil (make-char 'latin-iso8859-4 57) nil (make-char 'latin-iso8859-13 112) nil (make-char 'latin-iso8859-15 40) (make-char 'latin-iso8859-16 40) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 41) (vector #x1F1 (make-char 'latin-iso8859-1 41) nil nil nil (make-char 'latin-iso8859-9 41) (make-char 'latin-iso8859-13 41) (make-char 'latin-iso8859-14 41) (make-char 'latin-iso8859-15 41) (make-char 'latin-iso8859-16 41) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 42) (vector #x91 (make-char 'latin-iso8859-1 42) nil nil nil (make-char 'latin-iso8859-9 42) nil nil (make-char 'latin-iso8859-15 42) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 43) (vector #x1B1 (make-char 'latin-iso8859-1 43) nil nil nil (make-char 'latin-iso8859-9 43) (make-char 'latin-iso8859-13 43) nil (make-char 'latin-iso8859-15 43) (make-char 'latin-iso8859-16 43) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 44) (vector #xB1 (make-char 'latin-iso8859-1 44) nil nil nil (make-char 'latin-iso8859-9 44) (make-char 'latin-iso8859-13 44) nil (make-char 'latin-iso8859-15 44) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 45) (vector #x1FF (make-char 'latin-iso8859-1 45) (make-char 'latin-iso8859-2 45) (make-char 'latin-iso8859-3 45) (make-char 'latin-iso8859-4 45) (make-char 'latin-iso8859-9 45) (make-char 'latin-iso8859-13 45) (make-char 'latin-iso8859-14 45) (make-char 'latin-iso8859-15 45) (make-char 'latin-iso8859-16 45) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 46) (vector #xF1 (make-char 'latin-iso8859-1 46) nil nil nil (make-char 'latin-iso8859-9 46) (make-char 'latin-iso8859-13 46) (make-char 'latin-iso8859-14 46) (make-char 'latin-iso8859-15 46) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 47) (vector #x99 (make-char 'latin-iso8859-1 47) nil nil (make-char 'latin-iso8859-4 47) (make-char 'latin-iso8859-9 47) nil nil (make-char 'latin-iso8859-15 47) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 48) (vector #x1BF (make-char 'latin-iso8859-1 48) (make-char 'latin-iso8859-2 48) (make-char 'latin-iso8859-3 48) (make-char 'latin-iso8859-4 48) (make-char 'latin-iso8859-9 48) (make-char 'latin-iso8859-13 48) nil (make-char 'latin-iso8859-15 48) (make-char 'latin-iso8859-16 48) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 49) (vector #x1B1 (make-char 'latin-iso8859-1 49) nil nil nil (make-char 'latin-iso8859-9 49) (make-char 'latin-iso8859-13 49) nil (make-char 'latin-iso8859-15 49) (make-char 'latin-iso8859-16 49) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 50) (vector #xB5 (make-char 'latin-iso8859-1 50) nil (make-char 'latin-iso8859-3 50) nil (make-char 'latin-iso8859-9 50) (make-char 'latin-iso8859-13 50) nil (make-char 'latin-iso8859-15 50) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 51) (vector #xB5 (make-char 'latin-iso8859-1 51) nil (make-char 'latin-iso8859-3 51) nil (make-char 'latin-iso8859-9 51) (make-char 'latin-iso8859-13 51) nil (make-char 'latin-iso8859-15 51) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 52) (vector #x1AA nil (make-char 'latin-iso8859-2 46) nil (make-char 'latin-iso8859-4 46) nil (make-char 'latin-iso8859-13 94) nil (make-char 'latin-iso8859-15 52) (make-char 'latin-iso8859-16 52) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 53) (vector #xB5 (make-char 'latin-iso8859-1 53) nil (make-char 'latin-iso8859-3 53) nil (make-char 'latin-iso8859-9 53) (make-char 'latin-iso8859-13 53) nil (make-char 'latin-iso8859-15 53) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 54) (vector #x1F1 (make-char 'latin-iso8859-1 54) nil nil nil (make-char 'latin-iso8859-9 54) (make-char 'latin-iso8859-13 54) (make-char 'latin-iso8859-14 54) (make-char 'latin-iso8859-15 54) (make-char 'latin-iso8859-16 54) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 55) (vector #x1B5 (make-char 'latin-iso8859-1 55) nil (make-char 'latin-iso8859-3 55) nil (make-char 'latin-iso8859-9 55) (make-char 'latin-iso8859-13 55) nil (make-char 'latin-iso8859-15 55) (make-char 'latin-iso8859-16 55) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 56) (vector #x1AA nil (make-char 'latin-iso8859-2 62) nil (make-char 'latin-iso8859-4 62) nil (make-char 'latin-iso8859-13 126) nil (make-char 'latin-iso8859-15 56) (make-char 'latin-iso8859-16 56) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 57) (vector #xB1 (make-char 'latin-iso8859-1 57) nil nil nil (make-char 'latin-iso8859-9 57) (make-char 'latin-iso8859-13 57) nil (make-char 'latin-iso8859-15 57) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 58) (vector #x91 (make-char 'latin-iso8859-1 58) nil nil nil (make-char 'latin-iso8859-9 58) nil nil (make-char 'latin-iso8859-15 58) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 59) (vector #x1B1 (make-char 'latin-iso8859-1 59) nil nil nil (make-char 'latin-iso8859-9 59) (make-char 'latin-iso8859-13 59) nil (make-char 'latin-iso8859-15 59) (make-char 'latin-iso8859-16 59) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 60) (vector #x180 nil nil nil nil nil nil nil (make-char 'latin-iso8859-15 60) (make-char 'latin-iso8859-16 60) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 61) (vector #x180 nil nil nil nil nil nil nil (make-char 'latin-iso8859-15 61) (make-char 'latin-iso8859-16 61) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 62) (vector #x1C0 nil nil nil nil nil nil (make-char 'latin-iso8859-14 47) (make-char 'latin-iso8859-15 62) (make-char 'latin-iso8859-16 62) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 63) (vector #x91 (make-char 'latin-iso8859-1 63) nil nil nil (make-char 'latin-iso8859-9 63) nil nil (make-char 'latin-iso8859-15 63) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 64) (vector #x1D5 (make-char 'latin-iso8859-1 64) nil (make-char 'latin-iso8859-3 64) nil (make-char 'latin-iso8859-9 64) nil (make-char 'latin-iso8859-14 64) (make-char 'latin-iso8859-15 64) (make-char 'latin-iso8859-16 64) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 65) (vector #x1DF (make-char 'latin-iso8859-1 65) (make-char 'latin-iso8859-2 65) (make-char 'latin-iso8859-3 65) (make-char 'latin-iso8859-4 65) (make-char 'latin-iso8859-9 65) nil (make-char 'latin-iso8859-14 65) (make-char 'latin-iso8859-15 65) (make-char 'latin-iso8859-16 65) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 66) (vector #x1DF (make-char 'latin-iso8859-1 66) (make-char 'latin-iso8859-2 66) (make-char 'latin-iso8859-3 66) (make-char 'latin-iso8859-4 66) (make-char 'latin-iso8859-9 66) nil (make-char 'latin-iso8859-14 66) (make-char 'latin-iso8859-15 66) (make-char 'latin-iso8859-16 66) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 67) (vector #xD9 (make-char 'latin-iso8859-1 67) nil nil (make-char 'latin-iso8859-4 67) (make-char 'latin-iso8859-9 67) nil (make-char 'latin-iso8859-14 67) (make-char 'latin-iso8859-15 67) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 68) (vector #x1FF (make-char 'latin-iso8859-1 68) (make-char 'latin-iso8859-2 68) (make-char 'latin-iso8859-3 68) (make-char 'latin-iso8859-4 68) (make-char 'latin-iso8859-9 68) (make-char 'latin-iso8859-13 68) (make-char 'latin-iso8859-14 68) (make-char 'latin-iso8859-15 68) (make-char 'latin-iso8859-16 68) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 69) (vector #xF9 (make-char 'latin-iso8859-1 69) nil nil (make-char 'latin-iso8859-4 69) (make-char 'latin-iso8859-9 69) (make-char 'latin-iso8859-13 69) (make-char 'latin-iso8859-14 69) (make-char 'latin-iso8859-15 69) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 70) (vector #x1F9 (make-char 'latin-iso8859-1 70) nil nil (make-char 'latin-iso8859-4 70) (make-char 'latin-iso8859-9 70) (make-char 'latin-iso8859-13 47) (make-char 'latin-iso8859-14 70) (make-char 'latin-iso8859-15 70) (make-char 'latin-iso8859-16 70) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 71) (vector #x1D7 (make-char 'latin-iso8859-1 71) (make-char 'latin-iso8859-2 71) (make-char 'latin-iso8859-3 71) nil (make-char 'latin-iso8859-9 71) nil (make-char 'latin-iso8859-14 71) (make-char 'latin-iso8859-15 71) (make-char 'latin-iso8859-16 71) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 72) (vector #x1D5 (make-char 'latin-iso8859-1 72) nil (make-char 'latin-iso8859-3 72) nil (make-char 'latin-iso8859-9 72) nil (make-char 'latin-iso8859-14 72) (make-char 'latin-iso8859-15 72) (make-char 'latin-iso8859-16 72) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 73) (vector #x1FF (make-char 'latin-iso8859-1 73) (make-char 'latin-iso8859-2 73) (make-char 'latin-iso8859-3 73) (make-char 'latin-iso8859-4 73) (make-char 'latin-iso8859-9 73) (make-char 'latin-iso8859-13 73) (make-char 'latin-iso8859-14 73) (make-char 'latin-iso8859-15 73) (make-char 'latin-iso8859-16 73) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 74) (vector #x1D5 (make-char 'latin-iso8859-1 74) nil (make-char 'latin-iso8859-3 74) nil (make-char 'latin-iso8859-9 74) nil (make-char 'latin-iso8859-14 74) (make-char 'latin-iso8859-15 74) (make-char 'latin-iso8859-16 74) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 75) (vector #x1DF (make-char 'latin-iso8859-1 75) (make-char 'latin-iso8859-2 75) (make-char 'latin-iso8859-3 75) (make-char 'latin-iso8859-4 75) (make-char 'latin-iso8859-9 75) nil (make-char 'latin-iso8859-14 75) (make-char 'latin-iso8859-15 75) (make-char 'latin-iso8859-16 75) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 76) (vector #x1D5 (make-char 'latin-iso8859-1 76) nil (make-char 'latin-iso8859-3 76) nil (make-char 'latin-iso8859-9 76) nil (make-char 'latin-iso8859-14 76) (make-char 'latin-iso8859-15 76) (make-char 'latin-iso8859-16 76) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 77) (vector #x1DF (make-char 'latin-iso8859-1 77) (make-char 'latin-iso8859-2 77) (make-char 'latin-iso8859-3 77) (make-char 'latin-iso8859-4 77) (make-char 'latin-iso8859-9 77) nil (make-char 'latin-iso8859-14 77) (make-char 'latin-iso8859-15 77) (make-char 'latin-iso8859-16 77) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 78) (vector #x1DF (make-char 'latin-iso8859-1 78) (make-char 'latin-iso8859-2 78) (make-char 'latin-iso8859-3 78) (make-char 'latin-iso8859-4 78) (make-char 'latin-iso8859-9 78) nil (make-char 'latin-iso8859-14 78) (make-char 'latin-iso8859-15 78) (make-char 'latin-iso8859-16 78) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 79) (vector #x1D5 (make-char 'latin-iso8859-1 79) nil (make-char 'latin-iso8859-3 79) nil (make-char 'latin-iso8859-9 79) nil (make-char 'latin-iso8859-14 79) (make-char 'latin-iso8859-15 79) (make-char 'latin-iso8859-16 79) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 80) (vector #x81 (make-char 'latin-iso8859-1 80) nil nil nil nil nil nil (make-char 'latin-iso8859-15 80) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 81) (vector #xD5 (make-char 'latin-iso8859-1 81) nil (make-char 'latin-iso8859-3 81) nil (make-char 'latin-iso8859-9 81) nil (make-char 'latin-iso8859-14 81) (make-char 'latin-iso8859-15 81) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 82) (vector #x1D5 (make-char 'latin-iso8859-1 82) nil (make-char 'latin-iso8859-3 82) nil (make-char 'latin-iso8859-9 82) nil (make-char 'latin-iso8859-14 82) (make-char 'latin-iso8859-15 82) (make-char 'latin-iso8859-16 82) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 83) (vector #x1F7 (make-char 'latin-iso8859-1 83) (make-char 'latin-iso8859-2 83) (make-char 'latin-iso8859-3 83) nil (make-char 'latin-iso8859-9 83) (make-char 'latin-iso8859-13 83) (make-char 'latin-iso8859-14 83) (make-char 'latin-iso8859-15 83) (make-char 'latin-iso8859-16 83) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 84) (vector #x1DF (make-char 'latin-iso8859-1 84) (make-char 'latin-iso8859-2 84) (make-char 'latin-iso8859-3 84) (make-char 'latin-iso8859-4 84) (make-char 'latin-iso8859-9 84) nil (make-char 'latin-iso8859-14 84) (make-char 'latin-iso8859-15 84) (make-char 'latin-iso8859-16 84) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 85) (vector #xF9 (make-char 'latin-iso8859-1 85) nil nil (make-char 'latin-iso8859-4 85) (make-char 'latin-iso8859-9 85) (make-char 'latin-iso8859-13 85) (make-char 'latin-iso8859-14 85) (make-char 'latin-iso8859-15 85) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 86) (vector #x1FF (make-char 'latin-iso8859-1 86) (make-char 'latin-iso8859-2 86) (make-char 'latin-iso8859-3 86) (make-char 'latin-iso8859-4 86) (make-char 'latin-iso8859-9 86) (make-char 'latin-iso8859-13 86) (make-char 'latin-iso8859-14 86) (make-char 'latin-iso8859-15 86) (make-char 'latin-iso8859-16 86) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 87) (vector #xBF (make-char 'latin-iso8859-1 87) (make-char 'latin-iso8859-2 87) (make-char 'latin-iso8859-3 87) (make-char 'latin-iso8859-4 87) (make-char 'latin-iso8859-9 87) (make-char 'latin-iso8859-13 87) nil (make-char 'latin-iso8859-15 87) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 88) (vector #xF9 (make-char 'latin-iso8859-1 88) nil nil (make-char 'latin-iso8859-4 88) (make-char 'latin-iso8859-9 88) (make-char 'latin-iso8859-13 40) (make-char 'latin-iso8859-14 88) (make-char 'latin-iso8859-15 88) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 89) (vector #x1D5 (make-char 'latin-iso8859-1 89) nil (make-char 'latin-iso8859-3 89) nil (make-char 'latin-iso8859-9 89) nil (make-char 'latin-iso8859-14 89) (make-char 'latin-iso8859-15 89) (make-char 'latin-iso8859-16 89) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 90) (vector #x1DF (make-char 'latin-iso8859-1 90) (make-char 'latin-iso8859-2 90) (make-char 'latin-iso8859-3 90) (make-char 'latin-iso8859-4 90) (make-char 'latin-iso8859-9 90) nil (make-char 'latin-iso8859-14 90) (make-char 'latin-iso8859-15 90) (make-char 'latin-iso8859-16 90) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 91) (vector #x1DD (make-char 'latin-iso8859-1 91) nil (make-char 'latin-iso8859-3 91) (make-char 'latin-iso8859-4 91) (make-char 'latin-iso8859-9 91) nil (make-char 'latin-iso8859-14 91) (make-char 'latin-iso8859-15 91) (make-char 'latin-iso8859-16 91) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 92) (vector #x1FF (make-char 'latin-iso8859-1 92) (make-char 'latin-iso8859-2 92) (make-char 'latin-iso8859-3 92) (make-char 'latin-iso8859-4 92) (make-char 'latin-iso8859-9 92) (make-char 'latin-iso8859-13 92) (make-char 'latin-iso8859-14 92) (make-char 'latin-iso8859-15 92) (make-char 'latin-iso8859-16 92) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 93) (vector #xC3 (make-char 'latin-iso8859-1 93) (make-char 'latin-iso8859-2 93) nil nil nil nil (make-char 'latin-iso8859-14 93) (make-char 'latin-iso8859-15 93) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 94) (vector #x81 (make-char 'latin-iso8859-1 94) nil nil nil nil nil nil (make-char 'latin-iso8859-15 94) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 95) (vector #x1FF (make-char 'latin-iso8859-1 95) (make-char 'latin-iso8859-2 95) (make-char 'latin-iso8859-3 95) (make-char 'latin-iso8859-4 95) (make-char 'latin-iso8859-9 95) (make-char 'latin-iso8859-13 95) (make-char 'latin-iso8859-14 95) (make-char 'latin-iso8859-15 95) (make-char 'latin-iso8859-16 95) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 96) (vector #x1D5 (make-char 'latin-iso8859-1 96) nil (make-char 'latin-iso8859-3 96) nil (make-char 'latin-iso8859-9 96) nil (make-char 'latin-iso8859-14 96) (make-char 'latin-iso8859-15 96) (make-char 'latin-iso8859-16 96) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 97) (vector #x1DF (make-char 'latin-iso8859-1 97) (make-char 'latin-iso8859-2 97) (make-char 'latin-iso8859-3 97) (make-char 'latin-iso8859-4 97) (make-char 'latin-iso8859-9 97) nil (make-char 'latin-iso8859-14 97) (make-char 'latin-iso8859-15 97) (make-char 'latin-iso8859-16 97) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 98) (vector #x1DF (make-char 'latin-iso8859-1 98) (make-char 'latin-iso8859-2 98) (make-char 'latin-iso8859-3 98) (make-char 'latin-iso8859-4 98) (make-char 'latin-iso8859-9 98) nil (make-char 'latin-iso8859-14 98) (make-char 'latin-iso8859-15 98) (make-char 'latin-iso8859-16 98) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 99) (vector #xD9 (make-char 'latin-iso8859-1 99) nil nil (make-char 'latin-iso8859-4 99) (make-char 'latin-iso8859-9 99) nil (make-char 'latin-iso8859-14 99) (make-char 'latin-iso8859-15 99) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 100) (vector #x1FF (make-char 'latin-iso8859-1 100) (make-char 'latin-iso8859-2 100) (make-char 'latin-iso8859-3 100) (make-char 'latin-iso8859-4 100) (make-char 'latin-iso8859-9 100) (make-char 'latin-iso8859-13 100) (make-char 'latin-iso8859-14 100) (make-char 'latin-iso8859-15 100) (make-char 'latin-iso8859-16 100) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 101) (vector #xF9 (make-char 'latin-iso8859-1 101) nil nil (make-char 'latin-iso8859-4 101) (make-char 'latin-iso8859-9 101) (make-char 'latin-iso8859-13 101) (make-char 'latin-iso8859-14 101) (make-char 'latin-iso8859-15 101) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 102) (vector #x1F9 (make-char 'latin-iso8859-1 102) nil nil (make-char 'latin-iso8859-4 102) (make-char 'latin-iso8859-9 102) (make-char 'latin-iso8859-13 63) (make-char 'latin-iso8859-14 102) (make-char 'latin-iso8859-15 102) (make-char 'latin-iso8859-16 102) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 103) (vector #x1D7 (make-char 'latin-iso8859-1 103) (make-char 'latin-iso8859-2 103) (make-char 'latin-iso8859-3 103) nil (make-char 'latin-iso8859-9 103) nil (make-char 'latin-iso8859-14 103) (make-char 'latin-iso8859-15 103) (make-char 'latin-iso8859-16 103) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 104) (vector #x1D5 (make-char 'latin-iso8859-1 104) nil (make-char 'latin-iso8859-3 104) nil (make-char 'latin-iso8859-9 104) nil (make-char 'latin-iso8859-14 104) (make-char 'latin-iso8859-15 104) (make-char 'latin-iso8859-16 104) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 105) (vector #x1FF (make-char 'latin-iso8859-1 105) (make-char 'latin-iso8859-2 105) (make-char 'latin-iso8859-3 105) (make-char 'latin-iso8859-4 105) (make-char 'latin-iso8859-9 105) (make-char 'latin-iso8859-13 105) (make-char 'latin-iso8859-14 105) (make-char 'latin-iso8859-15 105) (make-char 'latin-iso8859-16 105) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 106) (vector #x1D5 (make-char 'latin-iso8859-1 106) nil (make-char 'latin-iso8859-3 106) nil (make-char 'latin-iso8859-9 106) nil (make-char 'latin-iso8859-14 106) (make-char 'latin-iso8859-15 106) (make-char 'latin-iso8859-16 106) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 107) (vector #x1DF (make-char 'latin-iso8859-1 107) (make-char 'latin-iso8859-2 107) (make-char 'latin-iso8859-3 107) (make-char 'latin-iso8859-4 107) (make-char 'latin-iso8859-9 107) nil (make-char 'latin-iso8859-14 107) (make-char 'latin-iso8859-15 107) (make-char 'latin-iso8859-16 107) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 108) (vector #x1D5 (make-char 'latin-iso8859-1 108) nil (make-char 'latin-iso8859-3 108) nil (make-char 'latin-iso8859-9 108) nil (make-char 'latin-iso8859-14 108) (make-char 'latin-iso8859-15 108) (make-char 'latin-iso8859-16 108) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 109) (vector #x1DF (make-char 'latin-iso8859-1 109) (make-char 'latin-iso8859-2 109) (make-char 'latin-iso8859-3 109) (make-char 'latin-iso8859-4 109) (make-char 'latin-iso8859-9 109) nil (make-char 'latin-iso8859-14 109) (make-char 'latin-iso8859-15 109) (make-char 'latin-iso8859-16 109) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 110) (vector #x1DF (make-char 'latin-iso8859-1 110) (make-char 'latin-iso8859-2 110) (make-char 'latin-iso8859-3 110) (make-char 'latin-iso8859-4 110) (make-char 'latin-iso8859-9 110) nil (make-char 'latin-iso8859-14 110) (make-char 'latin-iso8859-15 110) (make-char 'latin-iso8859-16 110) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 111) (vector #x1D5 (make-char 'latin-iso8859-1 111) nil (make-char 'latin-iso8859-3 111) nil (make-char 'latin-iso8859-9 111) nil (make-char 'latin-iso8859-14 111) (make-char 'latin-iso8859-15 111) (make-char 'latin-iso8859-16 111) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 112) (vector #x81 (make-char 'latin-iso8859-1 112) nil nil nil nil nil nil (make-char 'latin-iso8859-15 112) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 113) (vector #xD5 (make-char 'latin-iso8859-1 113) nil (make-char 'latin-iso8859-3 113) nil (make-char 'latin-iso8859-9 113) nil (make-char 'latin-iso8859-14 113) (make-char 'latin-iso8859-15 113) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 114) (vector #x1D5 (make-char 'latin-iso8859-1 114) nil (make-char 'latin-iso8859-3 114) nil (make-char 'latin-iso8859-9 114) nil (make-char 'latin-iso8859-14 114) (make-char 'latin-iso8859-15 114) (make-char 'latin-iso8859-16 114) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 115) (vector #x1F7 (make-char 'latin-iso8859-1 115) (make-char 'latin-iso8859-2 115) (make-char 'latin-iso8859-3 115) nil (make-char 'latin-iso8859-9 115) (make-char 'latin-iso8859-13 115) (make-char 'latin-iso8859-14 115) (make-char 'latin-iso8859-15 115) (make-char 'latin-iso8859-16 115) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 116) (vector #x1DF (make-char 'latin-iso8859-1 116) (make-char 'latin-iso8859-2 116) (make-char 'latin-iso8859-3 116) (make-char 'latin-iso8859-4 116) (make-char 'latin-iso8859-9 116) nil (make-char 'latin-iso8859-14 116) (make-char 'latin-iso8859-15 116) (make-char 'latin-iso8859-16 116) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 117) (vector #xF9 (make-char 'latin-iso8859-1 117) nil nil (make-char 'latin-iso8859-4 117) (make-char 'latin-iso8859-9 117) (make-char 'latin-iso8859-13 117) (make-char 'latin-iso8859-14 117) (make-char 'latin-iso8859-15 117) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 118) (vector #x1FF (make-char 'latin-iso8859-1 118) (make-char 'latin-iso8859-2 118) (make-char 'latin-iso8859-3 118) (make-char 'latin-iso8859-4 118) (make-char 'latin-iso8859-9 118) (make-char 'latin-iso8859-13 118) (make-char 'latin-iso8859-14 118) (make-char 'latin-iso8859-15 118) (make-char 'latin-iso8859-16 118) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 119) (vector #xBF (make-char 'latin-iso8859-1 119) (make-char 'latin-iso8859-2 119) (make-char 'latin-iso8859-3 119) (make-char 'latin-iso8859-4 119) (make-char 'latin-iso8859-9 119) (make-char 'latin-iso8859-13 119) nil (make-char 'latin-iso8859-15 119) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 120) (vector #xF9 (make-char 'latin-iso8859-1 120) nil nil (make-char 'latin-iso8859-4 120) (make-char 'latin-iso8859-9 120) (make-char 'latin-iso8859-13 56) (make-char 'latin-iso8859-14 120) (make-char 'latin-iso8859-15 120) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 121) (vector #x1D5 (make-char 'latin-iso8859-1 121) nil (make-char 'latin-iso8859-3 121) nil (make-char 'latin-iso8859-9 121) nil (make-char 'latin-iso8859-14 121) (make-char 'latin-iso8859-15 121) (make-char 'latin-iso8859-16 121) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 122) (vector #x1DF (make-char 'latin-iso8859-1 122) (make-char 'latin-iso8859-2 122) (make-char 'latin-iso8859-3 122) (make-char 'latin-iso8859-4 122) (make-char 'latin-iso8859-9 122) nil (make-char 'latin-iso8859-14 122) (make-char 'latin-iso8859-15 122) (make-char 'latin-iso8859-16 122) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 123) (vector #x1DD (make-char 'latin-iso8859-1 123) nil (make-char 'latin-iso8859-3 123) (make-char 'latin-iso8859-4 123) (make-char 'latin-iso8859-9 123) nil (make-char 'latin-iso8859-14 123) (make-char 'latin-iso8859-15 123) (make-char 'latin-iso8859-16 123) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 124) (vector #x1FF (make-char 'latin-iso8859-1 124) (make-char 'latin-iso8859-2 124) (make-char 'latin-iso8859-3 124) (make-char 'latin-iso8859-4 124) (make-char 'latin-iso8859-9 124) (make-char 'latin-iso8859-13 124) (make-char 'latin-iso8859-14 124) (make-char 'latin-iso8859-15 124) (make-char 'latin-iso8859-16 124) nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 125) (vector #xC3 (make-char 'latin-iso8859-1 125) (make-char 'latin-iso8859-2 125) nil nil nil nil (make-char 'latin-iso8859-14 125) (make-char 'latin-iso8859-15 125) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 126) (vector #x81 (make-char 'latin-iso8859-1 126) nil nil nil nil nil nil (make-char 'latin-iso8859-15 126) nil nil nil nil) table)
-    (put-char-table (make-char 'latin-iso8859-15 127) (vector #x1D1 (make-char 'latin-iso8859-1 127) nil nil nil (make-char 'latin-iso8859-9 127) nil (make-char 'latin-iso8859-14 127) (make-char 'latin-iso8859-15 127) (make-char 'latin-iso8859-16 127) nil nil nil) table)
     (put-char-table (make-char 'latin-iso8859-16 32) (vector #x1FF (make-char 'latin-iso8859-1 32) (make-char 'latin-iso8859-2 32) (make-char 'latin-iso8859-3 32) (make-char 'latin-iso8859-4 32) (make-char 'latin-iso8859-9 32) (make-char 'latin-iso8859-13 32) (make-char 'latin-iso8859-14 32) (make-char 'latin-iso8859-15 32) (make-char 'latin-iso8859-16 32) nil nil nil) table)
     (put-char-table (make-char 'latin-iso8859-16 33) (vector #x12A nil (make-char 'latin-iso8859-2 33) nil (make-char 'latin-iso8859-4 33) nil (make-char 'latin-iso8859-13 64) nil nil (make-char 'latin-iso8859-16 33) nil nil nil) table)
     (put-char-table (make-char 'latin-iso8859-16 34) (vector #x12A nil (make-char 'latin-iso8859-2 49) nil (make-char 'latin-iso8859-4 49) nil (make-char 'latin-iso8859-13 96) nil nil (make-char 'latin-iso8859-16 34) nil nil nil) table)
     (put-char-table (make-char 'latin-iso8859-16 127) (vector #x1D1 (make-char 'latin-iso8859-1 127) nil nil nil (make-char 'latin-iso8859-9 127) nil (make-char 'latin-iso8859-14 127) (make-char 'latin-iso8859-15 127) (make-char 'latin-iso8859-16 127) nil nil nil) table)
     table)
   "Map a (Latin) Mule character to the set of character sets containing it.
-Created: 2002 October 30")
-(put 'latin-unity-equivalences 'creation-date-string "2002 October 30")
+Created: 2002 October 31")
+(put 'latin-unity-equivalences 'creation-date-string "2002 October 31")
 ;;; end of latin-unity-tables.el

latin-unity-utils.el

 ;; Get the charsets, among other things
 (require 'latin-unity-vars)
 
-(if (fboundp 'character-to-unicode)
-    ;; #### untested
-    (fset 'char-to-ucs 'character-to-unicode)
-  ;; the following libraries are from Mule-UCS.
-  ;; this dependency can be eliminated by providing char-to-ucs.
-  (require 'mule-ucs-unicode "unicode")
-  (require 'un-define))
+(defvar latin-unity-utils-found-unicode-support t)
 
-;; table of character set support for each Unicode code point
-;; Table from http://www.cs.tut.fi/~jkorpela/iso8859/charsupp.htm8
-;(defconst latin-unity-character-sets-vector
-;  (let ((vec (make-vector (1+ #x20AC) 0)))
-;    (flet ((loopset (start end value)
-;	     (loop for i from start to end do
-;	       (aset vec i value)))
-;	   (mapsetbit (cs char-list)
-;	     (let ((bit (get cs 'latin-unity-flag-bit)))
-;	       (mapcar (lambda (i)
-;			 (aset vec i (logior bit (aref vec i))))
-;		       char-list)))
-;	   (mapclearbit (cs char-list)
-;	     (let ((bit (get cs 'latin-unity-flag-bit)))
-;	       (if (null bit) (error (format "no flag bit for %s" cs)))
-;	       (mapcar (lambda (i)
-;			 (aset vec i (logand (lognot bit) (aref vec i))))
-;		       char-list))))
-;      (loopset #x0 #x7F
-;	       (logior (get 'ascii 'latin-unity-flag-bit)
-;		       (get 'latin-jisx0201 'latin-unity-flag-bit)))
-;      ;; C1 is handled in the definition of the char-table.
-;      (loopset #xA0 #xFF
-;	       (logior (get 'latin-iso8859-1 'latin-unity-flag-bit)
-;		       (get 'latin-iso8859-9 'latin-unity-flag-bit)
-;		       (if (memq 'iso-8859-14 latin-unity-coding-systems)
-;			   (get 'latin-iso8859-14 'latin-unity-flag-bit)
-;			 0)
-;		       (get 'latin-iso8859-15 'latin-unity-flag-bit)))
-;      (mapsetbit 'latin-iso8859-2
-;	'(#xA0 #xA4 #xA7 #xA8 #xAD #xB0 #xB4 #xB8 #xC1 #xC2 #xC4
-;	  #xC7 #xC9 #xCB #xCD #xCE #xD3 #xD4 #xD6 #xD7 #xDA
-;	  #xDC #xDD #xDF #xE1 #xE2 #xE4 #xE7 #xE9 #xEB #xED
-;	  #xF3 #xF4 #xF6 #xF7 #xFA #xFC #xFD
-;	  #x0102 #x0103 #x0104 #x0105 #x0106
-;	  #x0107 #x010C #x010D #x010E #x010F
-;	  #x0110 #x0111 #x0118 #x0119 #x011A
-;	  #x011B #x0139 #x013A #x013D #x013E
-;	  #x0141 #x0142 #x0143 #x0144 #x0147
-;	  #x0148 #x0150 #x0151 #x0154 #x0155
-;	  #x0158 #x0159 #x015A #x015B #x015E
-;	  #x015F #x0160 #x0161 #x0162 #x0163
-;	  #x0164 #x0165 #x016E #x016F #x0170
-;	  #x0171 #x0179 #x017A #x017B #x017C
-;	  #x017D #x017E #x02C7 #x02D8 #x02D9
-;	  #x02DB #x02DD))
-;      (mapsetbit 'latin-iso8859-3
-;	'(#xA0 #xA3 #xA4 #xA7 #xA8 #xAD #xB0 #xB2 #xB3 #xB4 #xB5
-;	  #xB7 #xB8 #xBD #xC0 #xC1 #xC2 #xC4 #xC7 #xC8 #xC9
-;	  #xCA #xCB #xCC #xCD #xCE #xCF #xD1 #xD2 #xD3 #xD4
-;	  #xD6 #xD7
-;	  #xD9 #xDA #xDB #xDC #xDF #xE0 #xE1 #xE2 #xE4 #xE7
-;	  #xE8 #xE9 #xEA #xEB #xEC #xED #xEE #xEF #xF1 #xF2
-;	  #xF3 #xF4 #xF6 #xF7 #xF9 #xFA #xFB #xFC
-;	  #x0108 #x0109 #x010A #x010B #x011C
-;	  #x011D #x011E #x011F #x0120 #x0121
-;	  #x0124 #x0125 #x0126 #x0127 #x0130
-;	  #x0131 #x0134 #x0135 #x015C #x015D
-;	  #x015E #x015F #x016C #x016D #x017B
-;	  #x017C #x02D8 #x02D9))
-;      (mapsetbit 'latin-iso8859-4
-;	'(#xA0 #xA4 #xA7 #xA8 #xAD #xAF #xB0 #xB4 #xB8 #xC1 #xC2
-;	  #xC3 #xC4 #xC5 #xC6 #xC9 #xCB #xCD #xCE #xD4 #xD5
-;	  #xD6 #xD7 #xD8 #xDA #xDB #xDC #xDF #xE1 #xE2 #xE3
-;	  #xE4 #xE5 #xE6 #xE9 #xEB #xED #xEE #xF4 #xF5 #xF6
-;	  #xF7 #xF8 #xFA #xFB #xFC
-;	  #x0100 #x0101 #x0104 #x0105 #x010C
-;	  #x010D #x0110 #x0111 #x0112 #x0113
-;	  #x0116 #x0117 #x0118 #x0119 #x0122
-;	  #x0123 #x0128 #x0129 #x012A #x012B
-;	  #x012E #x012F #x0136 #x0137 #x0138
-;	  #x013B #x013C #x0145 #x0146 #x014A
-;	  #x014B #x014C #x014D #x0156 #x0157
-;	  #x0160 #x0161 #x0166 #x0167 #x0168
-;	  #x0169 #x016A #x016B #x0172 #x0173
-;	  #x017D #x017E #x02C7 #x02D9 #x02DB))
-;      (mapclearbit 'latin-iso8859-9
-;	'(#xD0 #xDD #xDE #xF0 #xFD #xFE))
-;      (mapsetbit 'latin-iso8859-9
-;	'(#x011E #x011F #x0130 #x0131 #x015E
-;	  #x015F))
-;      ;; Unsupported in current versions of Mule
-;      (when (memq 'iso-8859-10 latin-unity-coding-systems)
-;	(mapsetbit 'latin-iso8859-10
-;	  '(#xA0 #xA7 #xAD #xB0 #xB4 #xB7 #xC1 #xC2 #xC3 #xC4 #xC5
-;	    #xC6 #xCB #xCD #xCE #xCF #xD0 #xD3 #xD4 #xD5 #xD6
-;	    #xD8 #xDA #xDB #xDC #xDD #xDE #xDF #xE1 #xE2 #xE3
-;	    #xE4 #xE5 #xE6 #xE9 #xEB #xED #xEE #xEF #xF0 #xF3
-;	    #xF4 #xF5 #xF6 #xF8 #xFA #xFB #xFC #xFD #xFE 
-;	    #x0100 #x0101 #x0104 #x0105 #x010C
-;	    #x010D #x0110 #x0112 #x0113 #x0116
-;	    #x0117 #x0118 #x0119 #x0122 #x0123
-;	    #x0128 #x0129 #x012A #x012B #x012E
-;	    #x012F #x0136 #x0137 #x0138 #x013B
-;	    #x013C #x0145 #x0146 #x014A #x014B
-;	    #x014C #x014D #x0160 #x0161 #x0166
-;	    #x0167 #x0168 #x0169 #x016A #x016B
-;	    #x0172 #x0173 #x017D #x017E #x2015)))
-;      (when (memq 'iso-8859-13 latin-unity-coding-systems)
-;	(mapsetbit 'latin-iso8859-13
-;	  '(#xA0 #xA2 #xA3 #xA4 #xA6 #xA7 #xA9 #xAB #xAC #xAD #xAE
-;	    #xB0 #xB1 #xB2 #xB3 #xB5 #xB6 #xB7 #xB9 #xBB #xBC
-;	    #xBD #xBE #xC4 #xC5 #xC6 #xC9 #xD3 #xD5 #xD6 #xD7
-;	    #xD8 #xDC #xDF #xE4 #xE5 #xE6 #xE9 #xF3 #xF5 #xF6
-;	    #xF8 #xFC
-;	    #x0100 #x0101 #x0104 #x0105 #x0106
-;	    #x0107 #x010C #x010D #x0112 #x0113
-;	    #x0116 #x0117 #x0118 #x0119 #x0122
-;	    #x0123 #x012A #x012B #x012E #x012F
-;	    #x0136 #x0137 #x013B #x013C #x0141
-;	    #x0142 #x0143 #x0144 #x0145 #x0146
-;	    #x014C #x014D #x0156 #x0157 #x015A
-;	    #x015B #x0160 #x0161 #x016A #x016B
-;	    #x0172 #x0173 #x017D #x017E #x2019
-;	    #x201C #x201D #x201E)))
-;	(when (memq 'iso-8859-14 latin-unity-coding-systems)
-;	  (mapclearbit 'latin-iso8859-14
-;	    '(#xA1 #xA2 #xA4 #xA5 #xA6 #xA8 #xAA #xAB #xAC #xAF
-;	      #xB0 #xB1 #xB2 #xB3 #xB4 #xB5 #xB7 #xB8 #xB9 #xBA
-;	      #xBB #xBC #xBD #xBE #xBF #xD0 #xD7 #xDE #xF0 #xF7
-;	      #xFE))
-;	  (mapsetbit 'latin-iso8859-14
-;	    '(#x010A #x010B #x0120 #x0121 #x0174
-;	      #x0175 #x0176 #x0177 #x0178 #x1E02
-;	      #x1E03 #x1E0A #x1A0B #x1E1E #x1E1F
-;	      #x1E40 #x1E41 #x1E56 #x1E57 #x1E60
-;	      #x1E61 #x1E6A #x1E6B #x1E80 #x1E81
-;	      #x1E82 #x1E83 #x1E84 #x1E85 #x1EF2
-;	      #x1EF3)))
-;	(mapclearbit 'latin-iso8859-15
-;	  '(#xA4 #xA6 #xA8 #xB4 #xB8 #xBC #xBD #xBE))
-;	(mapsetbit 'latin-iso8859-15
-;	  '(#x0152 #x0153 #x0160 #x0161 #x0178
-;	    #x017C #x017D #x20AC)))
-;    vec))
+(condition-case nil
+    (if (fboundp 'character-to-unicode)
+	;; #### untested
+	(fset 'char-to-ucs 'character-to-unicode)
+      ;; the following libraries are from Mule-UCS.
+      ;; this dependency can be eliminated by providing char-to-ucs.
+      (require 'mule-ucs-unicode "unicode")
+      (require 'un-define))
+  (file-error (setq latin-unity-utils-found-unicode-support nil)))
+
+;; Table of character set support for each Unicode code point
+;; Hard-coded tables are from etc/unicode/unicode.org in XEmacs 21.5.
 
 ;; Populate the equivalence table
+(when latin-unity-utils-found-unicode-support
 (let* ((u+index (1+ (length latin-unity-character-sets))) ; alias
        (zero (make-vector (1+ u+index) nil))              ; useful constant
        ;; temporary holding tank for equivs: list of Mule characters
   ;; correctly (maybe because they're not built in?)
   ;; Latin-7 (ISO 8859/13)
   (when (find-coding-system 'iso-8859-13)
-    (message "Processing charset %s ..." 'iso-8859-13)
+    (message "Processing charset %s ..." 'latin-iso8859-13)
     (mapc (lambda (pair)
 	    (let ((ucs (cdr pair))
 		  (ch (make-char 'latin-iso8859-13 (car pair))))
 	    (#xF8 . #x0173) (#xF9 . #x0142) (#xFA . #x015B) (#xFB . #x016B)
 	    (#xFC . #x00FC) (#xFD . #x017C) (#xFE . #x017E) (#xFF . #x2019))))
   (when (find-coding-system 'iso-8859-14)
-    (message "Processing charset %s ..." 'iso-8859-14)
+    (message "Processing charset %s ..." 'latin-iso8859-14)
     (mapc (lambda (pair)
 	    (let ((ucs (cdr pair))
 		  (ch (make-char 'latin-iso8859-14 (car pair))))
 	    (#xF8 . #x00F8) (#xF9 . #x00F9) (#xFA . #x00FA) (#xFB . #x00FB)
 	    (#xFC . #x00FC) (#xFD . #x00FD) (#xFE . #x0177) (#xFF . #x00FF))))
   (when (find-coding-system 'iso-8859-15)
-    (message "Processing charset %s ..." 'iso-8859-15)
+    (message "Processing charset %s ..." 'latin-iso8859-15)
     (loop for i from #x20 to #x7F do
       (let* ((ch (make-char 'latin-iso8859-15 i)) ; multibyte dirty
 	     (ucs (+ i #x80)))
 		    (aset vec index ch2)))
 		(put-char-table ch1 vec latin-unity-equivalences)))))
 	unitable))
+)   ; when latin-unity-utils-found-unicode-support
 
 (defun latin-unity-dump-tables ()
   "Create a Lisp library to initialize the equivalences char-table."
 
   (interactive)
 
-  ;; set up buffer
-  (set-buffer (get-buffer-create "latin-unity-tables.el"))
-  (erase-buffer)
+  (if (not latin-unity-utils-found-unicode-support)
+      (if (file-readable-p (expand-file-name "latin-unity-tables.el"))
+	  (message "Unicode unsupported.  Reusing old latin-unity-tables.el.")
+	(error 'file-error
+	       "*** Can't find Unicode support or latin-unity-tables.el.***"))
 
-  ;; insert preface
-  (let ((nilvec (make-vector (+ (length latin-unity-character-sets) 2) nil))
-	(creation-date-string (format-time-string "%Y %B %d")))
-    (insert ";;; latin-unity-tables.el --- initialize latin-unity-equivalences"
-	    "\n;; Do not edit --- automatically generated."
-	    "\n;; Created: " creation-date-string
-	    "\n(provide 'latin-unity-tables)"
-	    "\n(defconst latin-unity-equivalences"
-	    "\n  (let ((table (make-char-table 'generic)))"
-	    "\n    ;; default all non-Latin charsets"
-    (format "\n    (put-char-table t %s table)"
-	    (progn (aset nilvec 0 0) nilvec))
-            "\n    ;; Control 1 code points are spatial"
-	    "\n    ;; Warning on these is beyond this library's scope."
-    (format "\n    (put-char-table 'control-1 %s table)"
-	    (progn (aset nilvec 0 latin-unity-all-flags) nilvec)))
+    ;; set up buffer
+    (set-buffer (get-buffer-create "latin-unity-tables.el"))
+    (erase-buffer)
 
-    ;; insert table insertions
-    ;; alternate mmc: (format "(apply #'make-char '%s)" (split-char ch))
-    (flet ((mmc (ch)
-	     (let ((x (split-char ch)))
-	       (concat (format "(make-char '%s %d" (first x) (second x))
-		       (if (third x) (format " %d)" (third x)) ")")))))
-      (map-char-table
-       (lambda (key val)
-	 (when (characterp key)
-	   (insert (format "\n    (put-char-table %s (vector %s) table)"
-			   (mmc key)
-			   (mapconcat
-			    (lambda (elt)
-			      (cond ((characterp elt) (mmc elt))
-				    ((null elt) "nil")
-				    ;; be careful to emit read syntax here!
-				    ((integerp elt) (format "#x%X" elt))
-				    (t (format "%s" elt))))
-			    val
-			    " ")))))
-       latin-unity-equivalences))
+    ;; insert preface
+    (let ((nilvec (make-vector (+ (length latin-unity-character-sets) 2) nil))
+	  (creation-date-string (format-time-string "%Y %B %d")))
+      (insert ";;; latin-unity-tables.el ---"
+	      " initialize latin-unity-equivalences"
+	      "\n;; Do not edit --- automatically generated."
+	      "\n;; Created: " creation-date-string
+	      "\n(provide 'latin-unity-tables)"
+	      "\n(defconst latin-unity-equivalences"
+	      "\n  (let ((table (make-char-table 'generic)))"
+	      "\n    ;; default all non-Latin charsets"
+	      (format "\n    (put-char-table t %s table)"
+		      (progn (aset nilvec 0 0) nilvec))
+	      "\n    ;; Control 1 code points are spatial"
+	      "\n    ;; Warning on these is beyond this library's scope."
+	      (format "\n    (put-char-table 'control-1 %s table)"
+		      (progn (aset nilvec 0 latin-unity-all-flags) nilvec)))
 
-    ;; insert trailing matter
-    (insert "\n    table)"
-	    "\n  \"Map a (Latin) Mule character to the set of"
-	    " character sets containing it."
-	    "\nCreated: " creation-date-string "\")"
-	    "\n(put 'latin-unity-equivalences 'creation-date-string \""
-	    creation-date-string "\")"
-	    "\n;;; end of latin-unity-tables.el"
-	    "\n"))
+      ;; insert table insertions
+      ;; alternate mmc: (format "(apply #'make-char '%s)" (split-char ch))
+      (flet ((mmc (ch)
+	       (let ((x (split-char ch)))
+		 (concat (format "(make-char '%s %d" (first x) (second x))
+			 (if (third x) (format " %d)" (third x)) ")")))))
+	(map-char-table
+	 (lambda (key val)
+	   (when (characterp key)
+	     (insert (format "\n    (put-char-table %s (vector %s) table)"
+			     (mmc key)
+			     (mapconcat
+			      (lambda (elt)
+				(cond ((characterp elt) (mmc elt))
+				      ((null elt) "nil")
+				      ;; be careful to emit read syntax here!
+				      ((integerp elt) (format "#x%X" elt))
+				      (t (format "%s" elt))))
+			      val
+			      " ")))))
+	 latin-unity-equivalences))
 
-  ;; write the file
-  (write-file "latin-unity-tables.el" t)
-  (message "Wrote %s." "latin-unity-tables.el"))
+      ;; insert trailing matter
+      (insert "\n    table)"
+	      "\n  \"Map a (Latin) Mule character to the set of"
+	      " character sets containing it."
+	      "\nCreated: " creation-date-string "\")"
+	      "\n(put 'latin-unity-equivalences 'creation-date-string \""
+	      creation-date-string "\")"
+	      "\n;;; end of latin-unity-tables.el"
+	      "\n"))
+
+    ;; write the file
+    (write-file "latin-unity-tables.el")
+    (message "Wrote %s." "latin-unity-tables.el")))
+
 
 ;;; end of latin-unity-utils.el