Source

latin-unity / latin-unity-latin8.el

Diff from to

latin-unity-latin8.el

 ;; Author: Stephen J. Turnbull
 ;; Keywords: mule, charsets
 ;; Created: 2002 October 24
+;; Last-Modified: 2005 February 7
 
 ;; This file is part of XEmacs.
 
 
 ;;; 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))
-  )
+;;; 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
 
-;;;###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")))
+(require 'latin-euro-standards)
 
-;;;###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"))
+;; Check that we're functionally equivalent to the old latin-unity-latin8.el
 
-  ;; 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@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))))
+;; 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)