CVS update by aidan ADDED: packages/mule-packages/mule-ucs/lisp/reldata uiso8859-13.el

User: aidan Date: 05/02/15 23:23:14 Added: packages/mule-packages/mule-ucs/lisp/reldata uiso8859-13.el uiso8859-16.el Log: Integrate Mule-UCS and latin-unity with the new latin-euro-standards package. Revision Changes Path 1.32 +7 -6 XEmacs/packages/mule-packages/latin-unity/Makefile Index: Makefile =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/Makefile,v retrieving revision 1.31 retrieving revision 1.32 diff -u -r1.31 -r1.32 --- Makefile 2004/05/14 12:51:28 1.31 +++ Makefile 2005/02/15 22:22:47 1.32 ＠＠ -1,6 +1,6 ＠＠ # Makefile for latin-unity -# Copyright (C) 2002 Free Software Foundation, Inc. +# Copyright (C) 2002, 2005 Free Software Foundation, Inc. # This file is part of XEmacs. ＠＠ -19,10 +19,10 ＠＠ # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. -# Last-modified: 2002 October 24 +# Last-modified: 2005 February 7 # The XEmacs CVS version is canonical. Keep versions n'sync. -VERSION = 1.10 +VERSION = 1.11 AUTHOR_VERSION = $(VERSION) MAINTAINER = Stephen J. Turnbull <stephen(a)xemacs.org&gt; PACKAGE = latin-unity ＠＠ -31,9 +31,9 ＠＠ # 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 +REQUIRES = mule-base latin-euro-standards leim fsf-compat dired else -REQUIRES = mule-base mule-ucs leim fsf-compat dired +REQUIRES = mule-base latin-euro-standards mule-ucs leim fsf-compat dired endif # Latin-Unity is a unique package in that it does not compile or run ＠＠ -50,11 +50,12 ＠＠ latin-unity-latin8.elc latin-unity-latin10.elc \ latin-unity-utils.elc + EXTRA_SOURCES = latin-unity-tests.el latin-unity-tables.el # for defvars and creation of ISO 8859/13 and ISO 8859/15 charsets and # coding system -PRELOADS=-l cl-macs -l latin-unity-latin7.el -l latin-unity-latin9.el \ +PRELOADS=-l cl-macs \ -l latin-unity-vars.el STANDARD_DOCS = t 1.2 +21 -70 XEmacs/packages/mule-packages/latin-unity/latin-unity-latin10.el Index: latin-unity-latin10.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity-latin10.el,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- latin-unity-latin10.el 2002/10/24 19:21:08 1.1 +++ latin-unity-latin10.el 2005/02/15 22:22:47 1.2 ＠＠ -5,6 +5,7 ＠＠ ;; Author: Stephen J. Turnbull ;; Keywords: mule, charsets ;; Created: 2002 October 24 +;; Last-Modified: 2005 February 7 ;; This file is part of XEmacs. ＠＠ -36,76 +37,26 ＠＠ ;;; Code: -;; define ISO-8859-16 for XEmacs 21.4 and earlier -;;;###autoload -(unless (find-charset 'latin-iso8859-16) - ;; Create character set - (make-charset - 'latin-iso8859-16 "ISO8859-16 (Latin 10)" - ;; sheesh, what we do for backward compatibility - ;; #### this test and the similar one below probably should be - ;; reformulated to use condition-case - (append (if (emacs-version>= 21 4) - '(short-name "Latin-10" - long-name "ISO8859-16 (Latin 10)") - nil) - '(registry "iso8859-16" - dimension 1 - columns 1 - chars 96 - final ?f ; octet 06/06; cf ISO-IR 226 - graphic 1 - direction l2r))) - ;; For syntax of Latin-10 characters. - (require 'cl) - (load "cl-macs" nil t) - (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)) - ) - -;;;###autoload -(unless (find-coding-system 'iso-8859-16) - ;; Create coding system - (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"))) - -;;;###autoload -(unless (assoc "Latin-10" language-info-alist) - (defun setup-latin10-environment () - "Set up multilingual environment (MULE) for European Latin-10 users." - (interactive) - (set-language-environment "Latin-10")) - - ;; sheesh, what we do for backward compatibility - (apply #'set-language-info-alist - (append `("Latin-10" - ((charset ascii latin-iso8859-16) - (coding-system iso-8859-16) - (coding-priority iso-8859-16) - (input-method . "latin-10-prefix") - (sample-text - . - ;; #### OK, who knows some Romanian? - ,(format "\ -Hey, if you know Romanian, send sample encoded text (eg, using \"comma-below\" -characters) to xemacs-beta(a)xemacs.org. Please use a MIME -application/octet-stream attachment if possible." - )) - (documentation . "\ -This is a generic language environment for Latin-10 (ISO-8859-16). It -supports Romanian and most Western European languages."))) - (if (emacs-version>= 21 1 15) - '(("European")) - nil)))) +;;; Actual functionality has been moved to the latin-euro-standards package, +;;; to prevent a circular dependency for Mule-UCS. This is a compatibility +;;; stub. -- Aidan Kehoe, Mon Feb 7 20:18:03 CET 2005 + +(require 'latin-euro-standards) + +;; Check that we're functionally equivalent to the old latin-unity-latin10.el + +;; The character set should exist. +(assert (charsetp (find-charset 'latin-iso8859-16)) + "`latin-euro-standards' didn't provide a Latin 10 character set!") + +;; As should the coding system. +(assert (coding-system-p (find-coding-system 'iso-8859-16)) + "`latin-euro-standards' didn't provide a Latin 10 coding system!") + +;; And we should have a language environment. +(assert + (assoc "Latin-10" language-info-alist) + "`latin-euro-standards' didn't provide a Latin 10 language environment!") (provide 'latin-unity-latin10) 1.2 +21 -94 XEmacs/packages/mule-packages/latin-unity/latin-unity-latin7.el Index: latin-unity-latin7.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity-latin7.el,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- latin-unity-latin7.el 2002/10/24 19:21:09 1.1 +++ latin-unity-latin7.el 2005/02/15 22:22:47 1.2 ＠＠ -5,7 +5,7 ＠＠ ;; Author: Stephen J. Turnbull ;; Keywords: mule, charsets ;; Created: 2002 March 7 -;; Last-modified: 2002 March 23 +;; Last-modified: 2005 February 7 ;; This file is part of XEmacs. ＠＠ -37,99 +37,26 ＠＠ ;;; Code: -;; define ISO-8859-13 for XEmacs 21.4 and earlier -; don't ;;;###autoload -(unless (find-charset 'latin-iso8859-13) - ;; Create character set - (make-charset - 'latin-iso8859-13 "ISO8859-13 (Latin 7)" - ;; sheesh, what we do for backward compatibility - ;; #### this test and the similar one below probably should be - ;; reformulated to use condition-case - (append (if (emacs-version>= 21 4) - '(short-name "Latin-7" - long-name "ISO8859-13 (Latin 7)") - nil) - '(registry "iso8859-13" - dimension 1 - columns 1 - chars 96 - final ?Y - graphic 1 - direction l2r))) - ;; For syntax of Latin-7 characters. - (require 'cl) - (load "cl-macs" nil t) ; howcum no #'provide? - (loop for c from 64 to 127 ; from 'À' to 'ÿ' - do (modify-syntax-entry (make-char 'latin-iso8859-13 c) "w")) - (mapc (lambda (c) - (modify-syntax-entry (make-char 'latin-iso8859-13 c) "w")) - '(#xA8 #xAA #xAF #xB8 #xBA #xBF)) - - (modify-syntax-entry (make-char 'latin-iso8859-13 32) "w") ; no-break space - (modify-syntax-entry (make-char 'latin-iso8859-13 87) "_") ; multiply - (modify-syntax-entry (make-char 'latin-iso8859-13 119) "_") ; divide - (modify-syntax-entry (make-char 'latin-iso8859-13 127) ".") ; right squote - ) - -(defvar iso8859/13-case-table - (let ((table (copy-case-table (standard-case-table)))) - (mapc (lambda (pair) - (put-case-table-pair (make-char 'latin-iso8859-13 (car pair)) - (make-char 'latin-iso8859-13 (cdr pair)) - table)) - '((#xA8 . #xB8) (#xAA . #xBA) (#xAF . #xBF))) - (let ((i #xC0)) - (while (< i #xDF) - (unless (= i #xD7) - (put-case-table-pair (make-char 'latin-iso8859-13 i) - (make-char 'latin-iso8859-13 (+ i #x20)) - table)) - (setq i (1+ i)))) - table) - "Case table for Latin 7, right half of ISO 8859/13.") - -; don't ;;;###autoload -(unless (find-coding-system 'iso-8859-13) - ;; Create coding system - (make-coding-system - 'iso-8859-13 'iso2022 "MIME ISO-8859-13" - '(charset-g0 ascii - charset-g1 latin-iso8859-13 - charset-g2 t ; grrr - charset-g3 t ; grrr - mnemonic "MIME/Ltn-7"))) - -; don't ;;;###autoload -(unless (assoc "Latin-7" language-info-alist) - (defun setup-latin7-environment () - "Set up multilingual environment (MULE) for Baltic Rim Latin-7 users." - (interactive) - (set-language-environment "Latin-7")) - - ;; sheesh, what we do for backward compatibility - (apply #'set-language-info-alist - (append `("Latin-7" - ((charset ascii latin-iso8859-13) - (coding-system iso-8859-13) - (coding-priority iso-8859-13) - (input-method . "latin-7-prefix") - (sample-text - . - ,(format "\ -Hello, Hej, Tere, Hei, Bonjour, Gr%c%c Gott, Ciao, %cHola!" - ;; SMALL U WITH UMLAUT - (make-char 'latin-iso8859-13 #x7C) - ;; GERMAN SHARP S - (make-char 'latin-iso8859-13 #x5F) - ;; INVERTED EXCLAMATION MARK - (make-char 'latin-iso8859-13 #x21))) - (documentation . "\ -This is a generic language environment for Latin-7 (ISO-8859-13). It -supports the Baltic Rim languages."))) - (if (emacs-version>= 21 1 15) - '(("Baltic Rim")) - nil)))) +;;; Actual functionality has been moved to the latin-euro-standards package, +;;; to prevent a circular dependency for Mule-UCS. This is a compatibility +;;; stub. -- Aidan Kehoe, Mon Feb 7 20:18:03 CET 2005 + +(require 'latin-euro-standards) + +;; Check that we're functionally equivalent to the old latin-unity-latin7.el + +;; The character set should exist. +(assert (charsetp (find-charset 'latin-iso8859-13)) + "`latin-euro-standards' didn't provide a Latin 7 character set!") + +;; As should the coding system. +(assert (coding-system-p (find-coding-system 'iso-8859-13)) + "`latin-euro-standards' didn't provide a Latin 7 coding system!") + +;; And we should have a language environment. +(assert + (assoc "Latin-7" language-info-alist) + "`latin-euro-standards' didn't provide a Latin 7 language environment!") (provide 'latin-unity-latin7) 1.2 +21 -69 XEmacs/packages/mule-packages/latin-unity/latin-unity-latin8.el Index: latin-unity-latin8.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity-latin8.el,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- latin-unity-latin8.el 2002/10/24 19:21:09 1.1 +++ latin-unity-latin8.el 2005/02/15 22:22:47 1.2 ＠＠ -5,6 +5,7 ＠＠ ;; Author: Stephen J. Turnbull ;; Keywords: mule, charsets ;; Created: 2002 October 24 +;; Last-Modified: 2005 February 7 ;; This file is part of XEmacs. ＠＠ -36,75 +37,26 ＠＠ ;;; Code: -;; define ISO-8859-14 for XEmacs 21.4 and earlier -;;;###autoload -(unless (find-charset 'latin-iso8859-14) - ;; Create character set - (make-charset - 'latin-iso8859-14 "ISO8859-14 (Latin 8)" - ;; sheesh, what we do for backward compatibility - ;; #### this test and the similar one below probably should be - ;; reformulated to use condition-case - (append (if (emacs-version>= 21 4) - '(short-name "Latin-8" - long-name "ISO8859-16 (Latin 8)") - nil) - '(registry "iso8859-14" - dimension 1 - columns 1 - chars 96 - final ?_ ; octet 05/15; cf ISO-IR 199 - graphic 1 - direction l2r))) - ;; For syntax of Latin-8 characters. - (require 'cl) - (load "cl-macs" nil t) - (loop for c from 32 to 127 - do (modify-syntax-entry (make-char 'latin-iso8859-14 c) "w")) - (mapc (lambda (c) - (modify-syntax-entry (make-char 'latin-iso8859-14 c) "_")) - '(#xA3 #xA7 #xA9 #xAD #xAE #xB6)) - ) - -;;;###autoload -(unless (find-coding-system 'iso-8859-14) - ;; Create coding system - (make-coding-system - 'iso-8859-14 'iso2022 "MIME ISO-8859-14" - '(charset-g0 ascii - charset-g1 latin-iso8859-14 - charset-g2 t ; grrr - charset-g3 t ; grrr - mnemonic "MIME/Ltn-8"))) - -;;;###autoload -(unless (assoc "Latin-8" language-info-alist) - (defun setup-latin8-environment () - "Set up multilingual environment (MULE) for European Latin-8 users." - (interactive) - (set-language-environment "Latin-8")) - - ;; sheesh, what we do for backward compatibility - (apply #'set-language-info-alist - (append `("Latin-8" - ((charset ascii latin-iso8859-14) - (coding-system iso-8859-14) - (coding-priority iso-8859-14) - (input-method . "latin-8-prefix") - (sample-text - . - ;; #### OK, who knows some Gaelic? - ,(format "\ -Hey, if you know a Celtic language, send sample encoded text (eg, using -\"dot-above\" characters) to xemacs-beta(a)xemacs.org. Please use a MIME -application/octet-stream attachment if possible." - )) - (documentation . "\ -This is a generic language environment for Latin-8 (ISO-8859-14). It -supports Celtic and most Western European languages."))) - (if (emacs-version>= 21 1 15) - '(("European")) - nil)))) +;;; Actual functionality has been moved to the latin-euro-standards package, +;;; to prevent a circular dependency for Mule-UCS. This is a compatibility +;;; stub. -- Aidan Kehoe, Mon Feb 7 20:18:03 CET 2005 + +(require 'latin-euro-standards) + +;; Check that we're functionally equivalent to the old latin-unity-latin8.el + +;; The character set should exist. +(assert (charsetp (find-charset 'latin-iso8859-14)) + "`latin-euro-standards' didn't provide a Latin 8 character set!") + +;; As should the coding system. +(assert (coding-system-p (find-coding-system 'iso-8859-14)) + "`latin-euro-standards' didn't provide a Latin 8 coding system!") + +;; And we should have a language environment. +(assert + (assoc "Latin-8" language-info-alist) + "`latin-euro-standards' didn't provide a Latin 8 language environment!") (provide 'latin-unity-latin8) 1.7 +20 -101 XEmacs/packages/mule-packages/latin-unity/latin-unity-latin9.el Index: latin-unity-latin9.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity-latin9.el,v retrieving revision 1.6 retrieving revision 1.7 diff -u -r1.6 -r1.7 --- latin-unity-latin9.el 2004/05/14 08:12:40 1.6 +++ latin-unity-latin9.el 2005/02/15 22:22:48 1.7 ＠＠ -37,107 +37,26 ＠＠ ;;; Code: -;; define ISO-8859-15 for XEmacs 21.4 and earlier -;;;###autoload -(unless (find-charset 'latin-iso8859-15) - ;; Create character set - (make-charset - 'latin-iso8859-15 "ISO8859-15 (Latin 9)" - ;; sheesh, what we do for backward compatibility - ;; #### this test and the similar one below probably should be - ;; reformulated to use condition-case - (append (if (emacs-version>= 21 4) - '(short-name "Latin-9" - long-name "ISO8859-15 (Latin 9)") - nil) - '(registry "iso8859-15" - dimension 1 - columns 1 - chars 96 - final ?b - graphic 1 - direction l2r))) - ;; For syntax of Latin-9 characters. - (require 'cl) - (load "cl-macs" nil t) ; howcum no #'provide? - (loop for c from 64 to 127 ; from 'À' to 'ÿ' - do (modify-syntax-entry (make-char 'latin-iso8859-15 c) "w")) - (mapc (lambda (c) - (modify-syntax-entry (make-char 'latin-iso8859-15 c) "w")) - '(#xA6 #xA8 #xB4 #xB8 #xBC #xBD #xBE)) - - (modify-syntax-entry (make-char 'latin-iso8859-15 32) "w") ; no-break space - (modify-syntax-entry (make-char 'latin-iso8859-15 87) "_") ; multiply - (modify-syntax-entry (make-char 'latin-iso8859-15 119) "_") ; divide - ) - -;;;###autoload -(unless (find-coding-system 'iso-8859-15) - ;; Create coding system - (make-coding-system - 'iso-8859-15 'iso2022 "MIME ISO-8859-15" - '(charset-g0 ascii - charset-g1 latin-iso8859-15 - charset-g2 t ; grrr - charset-g3 t ; grrr - mnemonic "MIME/Ltn-9"))) - -;;;###autoload -(unless (assoc "Latin-9" language-info-alist) - (defun setup-latin9-environment () - "Set up multilingual environment (MULE) for European Latin-9 users." - (interactive) - (set-language-environment "Latin-9")) - - ;; sheesh, what we do for backward compatibility - (apply #'set-language-info-alist - (append `("Latin-9" - ((charset ascii latin-iso8859-15) - (coding-system iso-8859-15) - (coding-priority iso-8859-15) - (input-method . "latin-9-prefix") - (sample-text - . - ,(format "\ -Hello, Hej, Tere, Hei, Bonjour, Gr%c%c Gott, Ciao, %cHola!, my %c0.02" - ;; SMALL U WITH UMLAUT - (make-char 'latin-iso8859-15 #x7C) - ;; GERMAN SHARP S - (make-char 'latin-iso8859-15 #x5F) - ;; INVERTED EXCLAMATION MARK - (make-char 'latin-iso8859-15 #x21) - ;; EURO SIGN - (make-char 'latin-iso8859-15 #x24))) - (documentation . "\ -This is a generic language environment for Latin-9 (ISO-8859-15). It -supports the Euro and the following languages: - Danish, Dutch, English, Faeroese, Finnish, French, German, Icelandic, - Irish, Italian, Norwegian, Portuguese, Spanish, and Swedish. -We also have a German specific language environment \"German\"."))) - (if (emacs-version>= 21 1 15) - '(("European")) - nil)))) - -;; #### move these to a separate file for keysyms. -;; I think these are all the ones not in Latin-1. - -;;;###autoload -(flet ((define-keysym-as-char (keysym character) - (unless (lookup-key global-map (vector keysym)) - (define-key global-map (vector keysym) #'self-insert-command)) - (unless (get keysym 'ascii-character) - (put keysym 'ascii-character character))) - (foo (k o) - (define-keysym-as-char k (make-char 'latin-iso8859-15 o)))) - (foo 'EuroSign #x24) - (foo 'Scaron #x26) - (foo 'scaron #x28) - (foo 'Zcaron #x34) - (foo 'zcaron #x38) - (foo 'OE #x3C) - (foo 'oe #x3D) - (foo 'Ydiaeresis #x3E)) - +;;; Actual functionality has been moved to the latin-euro-standards package, +;;; to prevent a circular dependency for Mule-UCS. This is a compatibility +;;; stub. -- Aidan Kehoe, Mon Feb 7 20:18:03 CET 2005 + +(require 'latin-euro-standards) + +;; Check that we're functionally equivalent to the old latin-unity-latin9.el + +;; The character set should exist. +(assert (charsetp (find-charset 'latin-iso8859-16)) + "`latin-euro-standards' didn't provide a Latin 9 character set!") + +;; As should the coding system. +(assert (coding-system-p (find-coding-system 'iso-8859-15)) + "`latin-euro-standards' didn't provide a Latin 9 coding system!") + +;; And we should have a language environment. +(assert + (assoc "Latin-9" language-info-alist) + "`latin-euro-standards' didn't provide a Latin 9 language environment!") (provide 'latin-unity-latin9) 1.6 +3 -18 XEmacs/packages/mule-packages/latin-unity/latin-unity-vars.el Index: latin-unity-vars.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity-vars.el,v retrieving revision 1.5 retrieving revision 1.6 diff -u -r1.5 -r1.6 --- latin-unity-vars.el 2002/10/24 19:21:16 1.5 +++ latin-unity-vars.el 2005/02/15 22:22:48 1.6 ＠＠ -37,24 +37,9 ＠＠ (provide 'latin-unity-vars) -;; If you consider any of these bloat, you can comment them out, but -;; YOU MUST REGENERATE latin-unity-tables.el. The table and the code -;; depend on arbitrarily chosen indexes for the charsets. - -;; Latin-7 charset, ISO 8859/13 coding system, Latin-7 environment (Baltic Rim) -;; Few people will need this, but it avoids screwups. -(require 'latin-unity-latin7) - -;; Latin-8 charset, ISO 8859/14 coding system, Latin-8 environment (Celtic) -;; Few people will need this, but it avoids screwups. -(require 'latin-unity-latin8) - -;; Latin-9 charset, ISO 8859/15 coding system, Latin-9 environment (Euro) -(require 'latin-unity-latin9) - -;; Latin-10 charset, ISO 8859/16 coding system, Latin-10 environment (Romanian) -;; Few people will need this, but it avoids screwups. -(require 'latin-unity-latin10) +;; Load the latin{7,8,9,10} language environments, character sets, and +;; coding systems. +(require 'latin-euro-standards) ;;; User customization is in latin-unity.el 1.12 +1 -6 XEmacs/packages/mule-packages/latin-unity/latin-unity.el Index: latin-unity.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity.el,v retrieving revision 1.11 retrieving revision 1.12 diff -u -r1.11 -r1.12 --- latin-unity.el 2004/05/14 08:12:40 1.11 +++ latin-unity.el 2005/02/15 22:22:48 1.12 ＠＠ -43,12 +43,7 ＠＠ ;;; Requires (require 'latin-unity-vars) -(require 'latin-unity-latin7) ; define iso-8859-13 -;; uncomment to add support for ISO 8859/14 -;(require 'latin-unity-latin8) ; define iso-8859-14 -(require 'latin-unity-latin9) ; define iso-8859-15 -;; uncomment to add support for ISO 8859/16 -;(require 'latin-unity-latin10) ; define iso-8859-16 + (if (or (fboundp 'character-to-unicode) ; XEmacs post-21.5.5 (fboundp 'char-to-ucs)) ; Mule-UCS already loaded (require 'latin-unity-tables "latin-unity-utils") 1.11 +8 -12 XEmacs/packages/mule-packages/latin-unity/latin-unity.texi Index: latin-unity.texi =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity.texi,v retrieving revision 1.10 retrieving revision 1.11 diff -u -r1.10 -r1.11 --- latin-unity.texi 2004/05/14 08:12:40 1.10 +++ latin-unity.texi 2005/02/15 22:22:48 1.11 ＠＠ -10,8 +10,8 ＠＠ ＠c %**end of header ＠c Version values, for easy modification -＠set VERSION 1.0 -＠set UPDATED Thursday 2002 March 23 +＠set VERSION 1.1 +＠set UPDATED Monday, February 7, 2005 ＠c ** Many people seem to prefer this footenote style ＠footnotestyle end ＠＠ -1044,16 +1044,12 ＠＠ ＠node Interfaces, Charsets and Coding Systems, What latin-unity Cannot Do for You, Top ＠chapter Interfaces -The Latin-9 language environment is provided in -(a)file{latin-unity-latin9.el}. This file when compiled contains Latin 9 -characters, so you ＠strong{must} load ＠file{latin-unity-vars.el} first -to define those characters. Otherwise the Lisp reader is likely to -signal an error due to stray ISO 2022 control sequences. - -Similar considerations apply to ＠file{latin-unity-latin7.el}, -(a)file{latin-unity-latin8.el} and ＠file{latin-unity-latin10.el}. - -Sorry, that's all I have to say for now---but it's important! +Various recent---dating from the end of the nineties---ISO 8859 standard +language environments used to be provided with this package, but they +have been refactored out into their own package, +＠i{latin-euro-standards}, on which this one depends. See the +documentation for that package if you're interested in using those from +Lisp. ＠node Charsets and Coding Systems, Internals, Interfaces, Top ＠chapter Charsets and Coding Systems 1.21 +2 -2 XEmacs/packages/mule-packages/mule-ucs/Makefile Index: Makefile =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/mule-ucs/Makefile,v retrieving revision 1.20 retrieving revision 1.21 diff -u -r1.20 -r1.21 --- Makefile 2005/01/31 20:11:07 1.20 +++ Makefile 2005/02/15 22:23:02 1.21 ＠＠ -17,12 +17,12 ＠＠ # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. -VERSION = 1.07 +VERSION = 1.08 AUTHOR_VERSION = 0.84 MAINTAINER = Stephen J. Turnbull <stephen(a)xemacs.org&gt; PACKAGE = mule-ucs PKG_TYPE = regular -REQUIRES = mule-base +REQUIRES = mule-base latin-euro-standards CATEGORY = mule # Mule-UCS is a unique package in that it does not compile or run 1.3 +6 -0 XEmacs/packages/mule-packages/mule-ucs/lisp/un-define.el Index: un-define.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/mule-ucs/lisp/un-define.el,v retrieving revision 1.2 retrieving revision 1.3 diff -u -r1.2 -r1.3 --- un-define.el 2002/02/13 12:26:14 1.2 +++ un-define.el 2005/02/15 22:23:06 1.3 ＠＠ -36,6 +36,10 ＠＠ (require 'mule-uni) +;; Load the ISO 8859-13,14,15,16 character sets, to allow us to create +;; mappings for them. +(require 'latin-euro-standards) + ;;; Autoload section (autoload 'ucs-to-char "unicode") (autoload 'char-to-ucs "unicode") ＠＠ -125,8 +129,10 ＠＠ greek-iso8859-7 hebrew-iso8859-8 latin-iso8859-9 + latin-iso8859-13 latin-iso8859-14 latin-iso8859-15 + latin-iso8859-16 ipa japanese-jisx0208 japanese-jisx0212 1.3 +2 -0 XEmacs/packages/mule-packages/mule-ucs/lisp/un-trbase.el Index: un-trbase.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/mule-ucs/lisp/un-trbase.el,v retrieving revision 1.2 retrieving revision 1.3 diff -u -r1.2 -r1.3 --- un-trbase.el 2002/03/18 09:29:02 1.2 +++ un-trbase.el 2005/02/15 22:23:06 1.3 ＠＠ -86,8 +86,10 ＠＠ (latin-iso8859-2 . uiso8859-2) (latin-iso8859-3 . uiso8859-3) (latin-iso8859-4 . uiso8859-4) + (latin-iso8859-13 . uiso8859-13) (latin-iso8859-14 . uiso8859-14) (latin-iso8859-15 . uiso8859-15) + (latin-iso8859-16 . uiso8859-16) (cyrillic-iso8859-5 . uiso8859-5) (arabic-iso8859-6 . uiso8859-6) (greek-iso8859-7 . uiso8859-7) 1.1 XEmacs/packages/mule-packages/mule-ucs/lisp/reldata/uiso8859-13.el Index: uiso8859-13.el =================================================================== ;;; uiso8859-13.el --- tables between UCS and ISO-8859-13 -*- coding: iso-2022-7bit -*- ;; Copyright (C) 2005 Aidan Kehoe ;; Author: Aidan Kehoe <kehoea(a)parhasard.net&gt; ;; Keywords: i18n ;; This file is a contribution to Mule-UCS. ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; Mule-UCS is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Code: (put 'latin-iso8859-13 'unicode-assoc 'iso-8859-13-vs-unicode-assoc) (defvar iso-8859-13-vs-unicode-assoc `(assoc (char-1 . ucs-generic) ,(transformate-list-structure (identity . c-notated-string-to-number) ((?\,_ (B . "0x00A0") ; NO-BREAK SPACE (?,Y!(B . "0x201D") ; RIGHT DOUBLE QUOTATION MARK (?,Y"(B . "0x00A2") ; CENT SIGN (?,Y#(B . "0x00A3") ; POUND SIGN (?,Y#(B . "0x00A3") ; POUND SIGN (?,Y$(B . "0x00A4") ; CURRENCY SIGN (?,Y%(B . "0x201E") ; DOUBLE LOW-9 QUOTATION MARK (?,Y&(B . "0x00A6") ; BROKEN BAR (?,Y'(B . "0x00A7") ; SECTION SIGN (?,Y((B . "0x00D8") ; LATIN CAPITAL LETTER O WITH STROKE (?,Y)(B . "0x00A9") ; COPYRIGHT SIGN (?,Y*(B . "0x0156") ; LATIN CAPITAL LETTER R WITH CEDILLA (?,Y+(B . "0x00AB") ; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK (?,Y,(B . "0x00AC") ; NOT SIGN (?,Y-(B . "0x00AD") ; SOFT HYPHEN (?,Y.(B . "0x00AE") ; REGISTERED SIGN (?,Y/(B . "0x00C6") ; LATIN CAPITAL LETTER AE (?,Y0(B . "0x00B0") ; DEGREE SIGN (?,Y1(B . "0x00B1") ; PLUS-MINUS SIGN (?,Y2(B . "0x00B2") ; SUPERSCRIPT TWO (?,Y3(B . "0x00B3") ; SUPERSCRIPT THREE (?,Y4(B . "0x201C") ; LEFT DOUBLE QUOTATION MARK (?,Y5(B . "0x00B5") ; MICRO SIGN (?,Y6(B . "0x00B6") ; PILCROW SIGN (?,Y7(B . "0x00B7") ; MIDDLE DOT (?,Y8(B . "0x00F8") ; LATIN SMALL LETTER O WITH STROKE (?,Y9(B . "0x00B9") ; SUPERSCRIPT ONE (?,Y:(B . "0x0157") ; LATIN SMALL LETTER R WITH CEDILLA (?,Y;(B . "0x00BB") ; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK (?,Y<(B . "0x00BC") ; VULGAR FRACTION ONE QUARTER (?,Y=(B . "0x00BD") ; VULGAR FRACTION ONE HALF (?,Y>(B . "0x00BE") ; VULGAR FRACTION THREE QUARTERS (?,Y?(B . "0x00E6") ; LATIN SMALL LETTER AE (?,Y＠(B . "0x0104") ; LATIN CAPITAL LETTER A WITH OGONEK (?,YA(B . "0x012E") ; LATIN CAPITAL LETTER I WITH OGONEK (?,YB(B . "0x0100") ; LATIN CAPITAL LETTER A WITH MACRON (?,YC(B . "0x0106") ; LATIN CAPITAL LETTER C WITH ACUTE (?,YD(B . "0x00C4") ; LATIN CAPITAL LETTER A WITH DIAERESIS (?,YE(B . "0x00C5") ; LATIN CAPITAL LETTER A WITH RING ABOVE (?,YF(B . "0x0118") ; LATIN CAPITAL LETTER E WITH OGONEK (?,YG(B . "0x0112") ; LATIN CAPITAL LETTER E WITH MACRON (?,YH(B . "0x010C") ; LATIN CAPITAL LETTER C WITH CARON (?,YI(B . "0x00C9") ; LATIN CAPITAL LETTER E WITH ACUTE (?,YJ(B . "0x0179") ; LATIN CAPITAL LETTER Z WITH ACUTE (?,YK(B . "0x0116") ; LATIN CAPITAL LETTER E WITH DOT ABOVE (?,YL(B . "0x0122") ; LATIN CAPITAL LETTER G WITH CEDILLA (?,YM(B . "0x0136") ; LATIN CAPITAL LETTER K WITH CEDILLA (?,YN(B . "0x012A") ; LATIN CAPITAL LETTER I WITH MACRON (?,YO(B . "0x013B") ; LATIN CAPITAL LETTER L WITH CEDILLA (?,YP(B . "0x0160") ; LATIN CAPITAL LETTER S WITH CARON (?,YQ(B . "0x0143") ; LATIN CAPITAL LETTER N WITH ACUTE (?,YR(B . "0x0145") ; LATIN CAPITAL LETTER N WITH CEDILLA (?,YS(B . "0x00D3") ; LATIN CAPITAL LETTER O WITH ACUTE (?,YT(B . "0x014C") ; LATIN CAPITAL LETTER O WITH MACRON (?,YU(B . "0x00D5") ; LATIN CAPITAL LETTER O WITH TILDE (?,YV(B . "0x00D6") ; LATIN CAPITAL LETTER O WITH DIAERESIS (?,YW(B . "0x00D7") ; MULTIPLICATION SIGN (?,YX(B . "0x0172") ; LATIN CAPITAL LETTER U WITH OGONEK (?,YY(B . "0x0141") ; LATIN CAPITAL LETTER L WITH STROKE (?,YZ(B . "0x015A") ; LATIN CAPITAL LETTER S WITH ACUTE (?,Y[(B . "0x016A") ; LATIN CAPITAL LETTER U WITH MACRON (?,Y\(B . "0x00DC") ; LATIN CAPITAL LETTER U WITH DIAERESIS (?,Y](B . "0x017B") ; LATIN CAPITAL LETTER Z WITH DOT ABOVE (?,Y^(B . "0x017D") ; LATIN CAPITAL LETTER Z WITH CARON (?,Y_(B . "0x00DF") ; LATIN SMALL LETTER SHARP S (German) (?,Y`(B . "0x0105") ; LATIN SMALL LETTER A WITH OGONEK (?,Ya(B . "0x012F") ; LATIN SMALL LETTER I WITH OGONEK (?,Yb(B . "0x0101") ; LATIN SMALL LETTER A WITH MACRON (?,Yc(B . "0x0107") ; LATIN SMALL LETTER C WITH ACUTE (?,Yd(B . "0x00E4") ; LATIN SMALL LETTER A WITH DIAERESIS (?,Ye(B . "0x00E5") ; LATIN SMALL LETTER A WITH RING ABOVE (?,Yf(B . "0x0119") ; LATIN SMALL LETTER E WITH OGONEK (?,Yg(B . "0x0113") ; LATIN SMALL LETTER E WITH MACRON (?,Yh(B . "0x010D") ; LATIN SMALL LETTER C WITH CARON (?,Yi(B . "0x00E9") ; LATIN SMALL LETTER E WITH ACUTE (?,Yj(B . "0x017A") ; LATIN SMALL LETTER Z WITH ACUTE (?,Yk(B . "0x0117") ; LATIN SMALL LETTER E WITH DOT ABOVE (?,Yl(B . "0x0123") ; LATIN SMALL LETTER G WITH CEDILLA (?,Ym(B . "0x0137") ; LATIN SMALL LETTER K WITH CEDILLA (?,Yn(B . "0x012B") ; LATIN SMALL LETTER I WITH MACRON (?,Yo(B . "0x013C") ; LATIN SMALL LETTER L WITH CEDILLA (?,Yp(B . "0x0161") ; LATIN SMALL LETTER S WITH CARON (?,Yq(B . "0x0144") ; LATIN SMALL LETTER N WITH ACUTE (?,Yr(B . "0x0146") ; LATIN SMALL LETTER N WITH CEDILLA (?,Ys(B . "0x00F3") ; LATIN SMALL LETTER O WITH ACUTE (?,Yt(B . "0x014D") ; LATIN SMALL LETTER O WITH MACRON (?,Yu(B . "0x00F5") ; LATIN SMALL LETTER O WITH TILDE (?,Yv(B . "0x00F6") ; LATIN SMALL LETTER O WITH DIAERESIS (?,Yw(B . "0x00F7") ; DIVISION SIGN (?,Yx(B . "0x0173") ; LATIN SMALL LETTER U WITH OGONEK (?,Yy(B . "0x0142") ; LATIN SMALL LETTER L WITH STROKE (?,Yz(B . "0x015B") ; LATIN SMALL LETTER S WITH ACUTE (?,Y{(B . "0x016B") ; LATIN SMALL LETTER U WITH MACRON (?,Y|(B . "0x00FC") ; LATIN SMALL LETTER U WITH DIAERESIS (?,Y}(B . "0x017C") ; LATIN SMALL LETTER Z WITH DOT ABOVE (?,Y~(B . "0x017E") ; LATIN SMALL LETTER Z WITH CARON (?,Y(B . "0x2019") ; RIGHT SINGLE QUOTATION MARK )))) (provide 'uiso8859-13) ;;; uiso8859-13.el ends here 1.1 XEmacs/packages/mule-packages/mule-ucs/lisp/reldata/uiso8859-16.el Index: uiso8859-16.el =================================================================== ;;; uiso8859-16.el --- tables between UCS and ISO-8859-16 -*- coding: iso-2022-7bit -*- ;; Copyright (C) 2005 Aidan Kehoe ;; Author: Aidan Kehoe <kehoea(a)parhasard.net&gt; ;; Keywords: i18n ;; This file is a contribution to Mule-UCS. ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; Mule-UCS is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Code: (put 'latin-iso8859-16 'unicode-assoc 'iso-8859-16-vs-unicode-assoc) (defvar iso-8859-16-vs-unicode-assoc `(assoc (char-1 . ucs-generic) ,(transformate-list-structure (identity . c-notated-string-to-number) ((?\,f (B ."0x00A0") ; NO-BREAK SPACE (?,f!(B ."0x0104") ; LATIN CAPITAL LETTER A WITH OGONEK (?,f"(B ."0x0105") ; LATIN SMALL LETTER A WITH OGONEK (?,f#(B ."0x0141") ; LATIN CAPITAL LETTER L WITH STROKE (?,f$(B ."0x20AC") ; EURO SIGN (?,f%(B ."0x201E") ; DOUBLE LOW-9 QUOTATION MARK (?,f&(B ."0x0160") ; LATIN CAPITAL LETTER S WITH CARON (?,f'(B ."0x00A7") ; SECTION SIGN (?,f((B ."0x0161") ; LATIN SMALL LETTER S WITH CARON (?,f)(B ."0x00A9") ; COPYRIGHT SIGN (?,f*(B ."0x0218") ; LATIN CAPITAL LETTER S WITH COMMA BELOW (?,f+(B ."0x00AB") ; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK (?,f,(B ."0x0179") ; LATIN CAPITAL LETTER Z WITH ACUTE (?,f-(B ."0x00AD") ; SOFT HYPHEN (?,f.(B ."0x017A") ; LATIN SMALL LETTER Z WITH ACUTE (?,f/(B ."0x017B") ; LATIN CAPITAL LETTER Z WITH DOT ABOVE (?,f0(B ."0x00B0") ; DEGREE SIGN (?,f1(B ."0x00B1") ; PLUS-MINUS SIGN (?,f2(B ."0x010C") ; LATIN CAPITAL LETTER C WITH CARON (?,f3(B ."0x0142") ; LATIN SMALL LETTER L WITH STROKE (?,f4(B ."0x017D") ; LATIN CAPITAL LETTER Z WITH CARON (?,f5(B ."0x201D") ; RIGHT DOUBLE QUOTATION MARK (?,f6(B ."0x00B6") ; PILCROW SIGN (?,f7(B ."0x00B7") ; MIDDLE DOT (?,f8(B ."0x017E") ; LATIN SMALL LETTER Z WITH CARON (?,f9(B ."0x010D") ; LATIN SMALL LETTER C WITH CARON (?,f:(B ."0x0219") ; LATIN SMALL LETTER S WITH COMMA BELOW (?,f;(B ."0x00BB") ; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK (?,f<(B ."0x0152") ; LATIN CAPITAL LIGATURE OE (?,f=(B ."0x0153") ; LATIN SMALL LIGATURE OE (?,f>(B ."0x0178") ; LATIN CAPITAL LETTER Y WITH DIAERESIS (?,f?(B ."0x017C") ; LATIN SMALL LETTER Z WITH DOT ABOVE (?,f＠(B ."0x00C0") ; LATIN CAPITAL LETTER A WITH GRAVE (?,fA(B ."0x00C1") ; LATIN CAPITAL LETTER A WITH ACUTE (?,fB(B ."0x00C2") ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX (?,fC(B ."0x0102") ; LATIN CAPITAL LETTER A WITH BREVE (?,fD(B ."0x00C4") ; LATIN CAPITAL LETTER A WITH DIAERESIS (?,fE(B ."0x0106") ; LATIN CAPITAL LETTER C WITH ACUTE (?,fF(B ."0x00C6") ; LATIN CAPITAL LETTER AE (?,fG(B ."0x00C7") ; LATIN CAPITAL LETTER C WITH CEDILLA (?,fH(B ."0x00C8") ; LATIN CAPITAL LETTER E WITH GRAVE (?,fI(B ."0x00C9") ; LATIN CAPITAL LETTER E WITH ACUTE (?,fJ(B ."0x00CA") ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX (?,fK(B ."0x00CB") ; LATIN CAPITAL LETTER E WITH DIAERESIS (?,fL(B ."0x00CC") ; LATIN CAPITAL LETTER I WITH GRAVE (?,fM(B ."0x00CD") ; LATIN CAPITAL LETTER I WITH ACUTE (?,fN(B ."0x00CE") ; LATIN CAPITAL LETTER I WITH CIRCUMFLEX (?,fO(B ."0x00CF") ; LATIN CAPITAL LETTER I WITH DIAERESIS (?,fP(B ."0x0110") ; LATIN CAPITAL LETTER D WITH STROKE (?,fQ(B ."0x0143") ; LATIN CAPITAL LETTER N WITH ACUTE (?,fR(B ."0x00D2") ; LATIN CAPITAL LETTER O WITH GRAVE (?,fS(B ."0x00D3") ; LATIN CAPITAL LETTER O WITH ACUTE (?,fT(B ."0x00D4") ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX (?,fU(B ."0x0150") ; LATIN CAPITAL LETTER O WITH DOUBLE ACUTE (?,fV(B ."0x00D6") ; LATIN CAPITAL LETTER O WITH DIAERESIS (?,fW(B ."0x015A") ; LATIN CAPITAL LETTER S WITH ACUTE (?,fX(B ."0x0170") ; LATIN CAPITAL LETTER U WITH DOUBLE ACUTE (?,fY(B ."0x00D9") ; LATIN CAPITAL LETTER U WITH GRAVE (?,fZ(B ."0x00DA") ; LATIN CAPITAL LETTER U WITH ACUTE (?,f[(B ."0x00DB") ; LATIN CAPITAL LETTER U WITH CIRCUMFLEX (?,f\(B ."0x00DC") ; LATIN CAPITAL LETTER U WITH DIAERESIS (?,f](B ."0x0118") ; LATIN CAPITAL LETTER E WITH OGONEK (?,f^(B ."0x021A") ; LATIN CAPITAL LETTER T WITH COMMA BELOW (?,f_(B ."0x00DF") ; LATIN SMALL LETTER SHARP S (?,f`(B ."0x00E0") ; LATIN SMALL LETTER A WITH GRAVE (?,fa(B ."0x00E1") ; LATIN SMALL LETTER A WITH ACUTE (?,fb(B ."0x00E2") ; LATIN SMALL LETTER A WITH CIRCUMFLEX (?,fc(B ."0x0103") ; LATIN SMALL LETTER A WITH BREVE (?,fd(B ."0x00E4") ; LATIN SMALL LETTER A WITH DIAERESIS (?,fe(B ."0x0107") ; LATIN SMALL LETTER C WITH ACUTE (?,ff(B ."0x00E6") ; LATIN SMALL LETTER AE (?,fg(B ."0x00E7") ; LATIN SMALL LETTER C WITH CEDILLA (?,fh(B ."0x00E8") ; LATIN SMALL LETTER E WITH GRAVE (?,fi(B ."0x00E9") ; LATIN SMALL LETTER E WITH ACUTE (?,fj(B ."0x00EA") ; LATIN SMALL LETTER E WITH CIRCUMFLEX (?,fk(B ."0x00EB") ; LATIN SMALL LETTER E WITH DIAERESIS (?,fl(B ."0x00EC") ; LATIN SMALL LETTER I WITH GRAVE (?,fm(B ."0x00ED") ; LATIN SMALL LETTER I WITH ACUTE (?,fn(B ."0x00EE") ; LATIN SMALL LETTER I WITH CIRCUMFLEX (?,fo(B ."0x00EF") ; LATIN SMALL LETTER I WITH DIAERESIS (?,fp(B ."0x0111") ; LATIN SMALL LETTER D WITH STROKE (?,fq(B ."0x0144") ; LATIN SMALL LETTER N WITH ACUTE (?,fr(B ."0x00F2") ; LATIN SMALL LETTER O WITH GRAVE (?,fs(B ."0x00F3") ; LATIN SMALL LETTER O WITH ACUTE (?,ft(B ."0x00F4") ; LATIN SMALL LETTER O WITH CIRCUMFLEX (?,fu(B ."0x0151") ; LATIN SMALL LETTER O WITH DOUBLE ACUTE (?,fv(B ."0x00F6") ; LATIN SMALL LETTER O WITH DIAERESIS (?,fw(B ."0x015B") ; LATIN SMALL LETTER S WITH ACUTE (?,fx(B ."0x0171") ; LATIN SMALL LETTER U WITH DOUBLE ACUTE (?,fy(B ."0x00F9") ; LATIN SMALL LETTER U WITH GRAVE (?,fz(B ."0x00FA") ; LATIN SMALL LETTER U WITH ACUTE (?,f{(B ."0x00FB") ; LATIN SMALL LETTER U WITH CIRCUMFLEX (?,f|(B ."0x00FC") ; LATIN SMALL LETTER U WITH DIAERESIS (?,f}(B ."0x0119") ; LATIN SMALL LETTER E WITH OGONEK (?,f~(B ."0x021B") ; LATIN SMALL LETTER T WITH COMMA BELOW (?,f(B ."0x00FF") ; LATIN SMALL LETTER Y WITH DIAERESIS )))) (provide 'uiso8859-16) ;;; uiso8859-16.el ends here