/[emacs]/emacs/lisp/language/european.el
ViewVC logotype

Diff of /emacs/lisp/language/european.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.69.2.4 by fx, Fri May 17 20:16:14 2002 UTC revision 1.69.2.5 by fx, Mon May 20 15:38:40 2002 UTC
# Line 25  Line 25 
25    
26  ;;; Commentary:  ;;; Commentary:
27    
28  ;; For European scripts, character sets ISO8859-1,2,3,4,9,13,14,15,  ;; For European scripts, character sets ISO8859-1,2,3,4,9,10,13,14,15,
29  ;; windows-1250,2,4,7, mac-roman and next are supported.  ;; windows-1250,2,4,7, mac-roman, adobe-standard-encoding, cp850 and
30    ;; next are supported.
31    
32  ;;; Code:  ;;; Code:
33    
# Line 172  These languages are supported with the L Line 173  These languages are supported with the L
173   '("European"))   '("European"))
174    
175    
176    ;; Latin-6 (ISO-8859-10)
177    
178    (define-coding-system 'iso-latin-6
179      "ISO 2022 based 8-bit encoding for Latin-6 (MIME:ISO-8859-10)."
180      :coding-type 'charset
181      :mnemonic ?9
182      :charset-list '(iso-8859-10)
183      :mime-charset 'iso-8859-10)
184    
185    (define-coding-system-alias 'iso-8859-10 'iso-latin-6)
186    (define-coding-system-alias 'latin-6 'iso-latin-6)
187    
188    (set-language-info-alist
189     "Latin-6" '((charset iso-8859-10)
190                 (coding-system iso-latin-6)
191                 (coding-priority iso-latin-6)
192                 (nonascii-translation . iso-8859-10)
193                 (unibyte-syntax . "latin-6")
194                 (unibyte-display . iso-latin-6)
195                 ;; Fixme: input method.
196                 (documentation . "Support for generic Latin-6 (Northern European)."))
197     '("European"))
198    
199    
200    ;; Latin-7 (ISO-8859-13)
201    
202    (define-coding-system 'iso-latin-7
203      "ISO 2022 based 8-bit encoding for Latin-7 (MIME:ISO-8859-13)."
204      :coding-type 'charset
205      :mnemonic ?9
206      :charset-list '(iso-8859-13)
207      :mime-charset 'iso-8859-13)
208    
209    (define-coding-system-alias 'iso-8859-13 'iso-latin-7)
210    (define-coding-system-alias 'latin-7 'iso-latin-7)
211    
212    (set-language-info-alist
213     "Latin-7" '((charset iso-8859-13)
214                 (coding-system iso-latin-7)
215                 (coding-priority iso-latin-7)
216                 (nonascii-translation . iso-8859-13)
217                 (unibyte-syntax . "latin-7")
218                 (unibyte-display . iso-latin-7)
219                 ;; Fixme: input method.
220                 (documentation . "Support for generic Latin-7 (Baltic Rim)."))
221     '("European"))
222    
223  ;; Latin-8 (ISO-8859-14)  ;; Latin-8 (ISO-8859-14)
224    
225  (define-coding-system 'iso-latin-8  (define-coding-system 'iso-latin-8
# Line 275  Latin-9 is sometimes nicknamed `Latin-0' Line 323  Latin-9 is sometimes nicknamed `Latin-0'
323    :charset-list '(windows-1257)    :charset-list '(windows-1257)
324    :mime-charset 'windows-1257)    :mime-charset 'windows-1257)
325  (define-coding-system-alias 'cp1257 'windows-1257)  (define-coding-system-alias 'cp1257 'windows-1257)
326    
327    (define-coding-system 'cp850
328      "DOS codepage 850 (Western European)"
329      :coding-type 'charset
330      :mnemonic ?D
331      :charset-list '(cp850)
332      :mime-charset 'cp850)
333    (define-coding-system-alias 'ibm850 'cp850)
334    
335  (set-language-info-alist  (set-language-info-alist
336   "German" '((tutorial . "TUTORIAL.de")   "German" '((tutorial . "TUTORIAL.de")
# Line 423  but it selects the Dutch tutorial.")) Line 479  but it selects the Dutch tutorial."))
479    :coding-type 'charset    :coding-type 'charset
480    :mnemonic ?M    :mnemonic ?M
481    :charset-list '(mac-roman)    :charset-list '(mac-roman)
   ;; per IANA, rfc1345  
482    :mime-charset 'macintosh)    :mime-charset 'macintosh)
483    
484  (define-coding-system 'next  (define-coding-system 'next
# Line 432  but it selects the Dutch tutorial.")) Line 487  but it selects the Dutch tutorial."))
487    :mnemonic ?*    :mnemonic ?*
488    :charset-list '(next)    :charset-list '(next)
489    :mime-charset 'next)    :mime-charset 'next)
490    
491    (define-coding-system 'hp-roman8
492      "Hewlet-Packard roman-8 encoding (MIME:ROMAN-8)"
493      :coding-type 'charset
494      :mnemonic ?*
495      :charset-list '(hp-roman8)
496      :mime-charset 'hp-roman8)
497    (define-coding-system-alias 'roman8 'hp-roman8)
498    
499    (define-coding-system 'adobe-standard-encoding
500      "Adobe `standard' encoding for PostScript"
501      :coding-type 'charset
502      :mnemonic ?*
503      :charset-list '(adobe-standard-encoding) 'adobe-standard-encoding)
504    
505  (defconst diacritic-composition-pattern "\\C^\\c^+")  (defconst diacritic-composition-pattern "\\C^\\c^+")
506    

Legend:
Removed from v.1.69.2.4  
changed lines
  Added in v.1.69.2.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26