;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*-
;; Copyright (C) 1995, 1997, 2001 Electrotechnical Laboratory, JAPAN.
-;; Licensed to the Free Software Foundation.
-;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
+;; Licensed to the Free Software Foundation.
+;; Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc.
+;; Copyright (C) 2003
+;; National Institute of Advanced Industrial Science and Technology (AIST)
+;; Registration Number H13PRO009
;; Keywords: multilingual, European
We also have specific language environments for the following languages:
For Dutch, \"Dutch\".
For German, \"German\".
- For Spanish, \"Spanish\".
For French, \"French\".
+ For Italian, \"Italian\".
+ For Slovenian, \"Slovenian\".
+ For Spanish, \"Spanish\".
Latin-1 also covers several written languages outside Europe, including
Indonesian/Malay, Tagalog (Philippines), Swahili and Afrikaans."))
and Swedish.
We also have specific language environments for the following languages:
For Czech, \"Czech\".
+ For Croatian, \"Croatian\".
For Polish, \"Polish\".
For Romanian, \"Romanian\".
For Slovak, \"Slovak\"."))
(unibyte-display . iso-latin-9)
(input-method . "latin-9-prefix")
(sample-text
- . "AVE. \e,B)9.>\e,b<=\e,_/\e(B \e,b$\e(B")
+ . "AVE. \e,b&(48<=>\e(B \e,b$\e(B")
(documentation . "\
This language environment is a generic one for the Latin-9 (ISO-8859-15)
character set which supports the same languages as Latin-1 with the
Latin-9 is sometimes nicknamed `Latin-0'."))
'("European"))
\f
-(define-coding-system 'iso-latin-7
- "ISO 2022 based 8-bit encoding for Latin-7 (MIME:ISO-8859-13)."
- :coding-type 'charset
- ;; `0' for `Latin-0'
- :mnemonic ?*
- :charset-list '(iso-8859-13)
- :mime-charset 'iso-8859-13)
-
-(define-coding-system-alias 'iso-8859-13 'iso-latin-7)
-(define-coding-system-alias 'latin-7 'iso-latin-7)
-\f
(define-coding-system 'windows-1250
"windows-1250 (Central European) encoding (MIME: WINDOWS-1250)"
:coding-type 'charset
:mime-charset 'cp437)
(define-coding-system-alias 'ibm437 'cp437)
\f
+(set-language-info-alist
+ "Dutch" '((tutorial . "TUTORIAL.nl")
+ (charset iso-8859-1)
+ (coding-system iso-latin-1 iso-latin-9)
+ (coding-priority iso-latin-1)
+ (nonascii-translation . iso-8859-1)
+ (unibyte-display . iso-latin-1)
+ (input-method . "dutch")
+ (sample-text . "Er is een aantal manieren waarop je dit kan doen")
+ (documentation . "\
+This language environment is almost the same as Latin-1,
+but it selects the Dutch tutorial and input method."))
+ '("European"))
+
(set-language-info-alist
"German" '((tutorial . "TUTORIAL.de")
(charset iso-8859-1)
(sample-text . "French (Fran\e,Ag\e(Bais) Bonjour, Salut")
(documentation . "\
This language environment is almost the same as Latin-1,
-but it selects the French tutorial."))
+but it selects the French tutorial and input method."))
+ '("European"))
+
+(set-language-info-alist
+ "Italian" '((tutorial . "TUTORIAL.it")
+ (charset iso-8859-1)
+ (coding-system iso-latin-1 iso-latin-9)
+ (coding-priority iso-latin-1)
+ (nonascii-translation . iso-8859-1)
+ (unibyte-display . iso-latin-1)
+ (input-method . "italian-postfix")
+ (sample-text . "Salve, ciao!")
+ (documentation . "\
+This language environment is almost the same as Latin-1,
+but sets the default input method to \"italian-postfix\".
+Additionally, it selects the Italian tutorial."))
'("European"))
(set-language-info-alist
(coding-system . (iso-8859-2 windows-1250))
(coding-priority . (iso-8859-2))
(nonascii-translation . iso-8859-2)
- (input-method . "latin-2-postfix")
+ (input-method . "slovenian")
(unibyte-display . iso-8859-2)
(tutorial . "TUTORIAL.sl")
(sample-text . "\e,B.\e(Belimo vam uspe\e,B9\e(Ben dan!")
- (documentation . t))
+ (documentation . "\
+This language environment is almost the same as Latin-2,
+but it selects the Slovenian tutorial and input method."))
'("European"))
(set-language-info-alist
(charset iso-8859-1)
(coding-system iso-latin-1 iso-latin-9)
(coding-priority iso-latin-1)
- (nonascii-translation . iso-8859-1)
(input-method . "spanish-postfix")
+ (nonascii-translation . iso-8859-1)
(unibyte-display . iso-latin-1)
(sample-text . "Spanish (Espa\e,Aq\e(Bol) \e,A!\e(BHola!")
(documentation . "\
and it selects the Spanish tutorial."))
'("European"))
-(set-language-info-alist
- "Dutch" '((tutorial . "TUTORIAL.nl")
- (charset iso-8859-1)
- (coding-system iso-latin-1 iso-latin-9)
- (coding-priority iso-latin-1)
- (nonascii-translation . iso-8859-1)
- (unibyte-display . iso-latin-1)
- (input-method . "dutch")
- (sample-text . "Er is een aantal manieren waarop je dit kan doen")
- (documentation . "\
-This language environment is almost the same as Latin-1,
-but it selects the Dutch tutorial and input method."))
- '("European"))
-
;; For Turkish, the character set ISO-8859-9 (Latin-5) is used. But,
;; before the introduction of ISO-8859-9 in 1988, ISO-8859-3 (Latin-3)
;; was used for Turkish. Those who use Latin-3 for Turkish should use
(nonascii-translation . iso-8859-9)
(unibyte-display . iso-latin-5)
(input-method . "turkish-postfix")
- (sample-text . "Turkish (T\e,A|\e(Brk\e,Ag\e(Be) Merhaba")
+ (sample-text . "Turkish (T\e,M|\e(Brk\e,Mg\e(Be) Merhaba")
(setup-function
. (lambda ()
(set-case-syntax-pair ?I ?\e,C9\e(B (standard-case-table))
;; Keywords: multilingual, Polish
(set-language-info-alist
- "Polish" '((charset . (iso-8859-2))
- (coding-system . (iso-8859-2 windows-1250))
- (coding-priority . (iso-8859-2))
- (nonascii-translation . iso-8859-2)
+ "Polish" '((charset iso-8859-2)
+ (coding-system iso-8859-2 windows-1250)
+ (coding-priority iso-8859-2)
(input-method . "polish-slash")
+ (nonascii-translation . iso-8859-2)
(unibyte-display . iso-8859-2)
(tutorial . "TUTORIAL.pl")
- (sample-text . "P\e,As\e(Bjd\e,B<\e(B, ki\e,Bq\e(B-\e,B?\e(Be t\e,Bj\e(B chmurno\e,B6f\e(B w g\e,B31\e(Bb flaszy")
+ (sample-text . "P\e,Bs\e(Bjd\e,B<\e(B, ki\e,Bq\e(B-\e,B?\e(Be t\e,Bj\e(B chmurno\e,B6f\e(B w g\e,B31\e(Bb flaszy")
(documentation . t))
'("European"))
(documentation . "Support for Welsh, using Unicode."))
'("European"))
+(set-language-info-alist
+ "Latin-6" `((coding-system latin-6)
+ (coding-priority latin-6)
+ (nonascii-translation . ,(get 'decode-iso-latin-6 'translation-table))
+ (input-method . "latin-prefix")
+ (features code-pages)
+ (documentation . "Support for Latin-6."))
+ '("European"))
+
(set-language-info-alist
"Latin-7" `((coding-system latin-7)
(coding-priority latin-7)
(nonascii-translation . iso-8859-13)
- ;; Fixme: input-method
+ (input-method . "latin-prefix")
(documentation . "Support for Latin-7, e.g. Latvian, Lithuanian."))
'("European"))
(documentation . "Support for Latvian."))
'("European"))
+(set-language-info-alist
+ "Swedish" '((tutorial . "TUTORIAL.sv")
+ (charset iso-8859-1)
+ (coding-system iso-latin-1)
+ (coding-priority iso-latin-1)
+ (nonascii-translation . iso-8859-1)
+ (unibyte-display . iso-latin-1)
+ (sample-text . "Goddag Hej")
+ (documentation . "Support for Swedish"))
+ '("European"))
+
+(set-language-info-alist
+ "Croatian" '((charset iso-8859-2)
+ (coding-system iso-8859-2)
+ (coding-priority iso-8859-2)
+ (input-method . "croatian")
+ (nonascii-translation . iso-8859-2)
+ (unibyte-display . iso-8859-2)
+ (documentation . "Support for Croatian with Latin-2 encoding."))
+ '("European"))
+
\f
(define-coding-system 'mac-roman
"Mac Roman Encoding (MIME:MACINTOSH)."
(compose-string string idx (match-end 0))
(setq idx (match-end 0))))
string)
-
+
(defun diacritic-compose-buffer ()
"Compose diacritic characters in the current buffer."
(interactive)