/[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.66 by fx, Sat Dec 15 17:43:05 2001 UTC revision 1.67 by wl, Tue Dec 18 17:46:58 2001 UTC
# Line 34  Line 34 
34    
35  (make-coding-system  (make-coding-system
36   'iso-latin-1 2 ?1   'iso-latin-1 2 ?1
37   "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)"   "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)."
38   '(ascii latin-iso8859-1 nil nil   '(ascii latin-iso8859-1 nil nil
39     nil nil nil nil nil nil nil nil nil nil nil nil t)     nil nil nil nil nil nil nil nil nil nil nil nil t)
40   '((safe-charsets ascii latin-iso8859-1)   '((safe-charsets ascii latin-iso8859-1)
# Line 76  Indonesian/Malay, Tagalog (Philippines), Line 76  Indonesian/Malay, Tagalog (Philippines),
76    
77  (make-coding-system  (make-coding-system
78   'iso-latin-2 2 ?2   'iso-latin-2 2 ?2
79   "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)"   "ISO 2022 based 8-bit encoding for Latin-2 (MIME:ISO-8859-2)."
80   '(ascii latin-iso8859-2 nil nil   '(ascii latin-iso8859-2 nil nil
81     nil nil nil nil nil nil nil)     nil nil nil nil nil nil nil)
82   '((safe-charsets ascii latin-iso8859-2)   '((safe-charsets ascii latin-iso8859-2)
# Line 110  We also have specific language environme Line 110  We also have specific language environme
110    
111  (make-coding-system  (make-coding-system
112   'iso-latin-3 2 ?3   'iso-latin-3 2 ?3
113   "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)"   "ISO 2022 based 8-bit encoding for Latin-3 (MIME:ISO-8859-3)."
114   '(ascii latin-iso8859-3 nil nil   '(ascii latin-iso8859-3 nil nil
115     nil nil nil nil nil nil nil)     nil nil nil nil nil nil nil)
116   '((safe-charsets ascii latin-iso8859-3)   '((safe-charsets ascii latin-iso8859-3)
# Line 138  These languages are supported with the L Line 138  These languages are supported with the L
138    
139  (make-coding-system  (make-coding-system
140   'iso-latin-4 2 ?4   'iso-latin-4 2 ?4
141   "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)"   "ISO 2022 based 8-bit encoding for Latin-4 (MIME:ISO-8859-4)."
142   '(ascii latin-iso8859-4 nil nil   '(ascii latin-iso8859-4 nil nil
143     nil nil nil nil nil nil nil)     nil nil nil nil nil nil nil)
144   '((safe-charsets ascii latin-iso8859-4)   '((safe-charsets ascii latin-iso8859-4)
# Line 166  These languages are supported with the L Line 166  These languages are supported with the L
166    
167  (make-coding-system  (make-coding-system
168   'iso-latin-5 2 ?9   'iso-latin-5 2 ?9
169   "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)"   "ISO 2022 based 8-bit encoding for Latin-5 (MIME:ISO-8859-9)."
170   '(ascii latin-iso8859-9 nil nil   '(ascii latin-iso8859-9 nil nil
171     nil nil nil nil nil nil nil)     nil nil nil nil nil nil nil)
172   '((safe-charsets ascii latin-iso8859-9)   '((safe-charsets ascii latin-iso8859-9)
# Line 185  These languages are supported with the L Line 185  These languages are supported with the L
185               (input-method . "latin-5-postfix")               (input-method . "latin-5-postfix")
186               (documentation . "\               (documentation . "\
187  These languages are supported with the Latin-5 (ISO-8859-9) character set:  These languages are supported with the Latin-5 (ISO-8859-9) character set:
188  Bulgarian, Byelorussian, (Slavic) Macedonian, Russian, Serbian and   Bulgarian, Byelorussian, (Slavic) Macedonian, Russian, Serbian and
189  Ukranian."))                            ; says ISO 8859-1   Ukranian."))                           ; says ISO 8859-1
190   '("European"))   '("European"))
191    
192    
# Line 195  Ukranian."))                           ; says ISO 8859-1 Line 195  Ukranian."))                           ; says ISO 8859-1
195  (make-coding-system  (make-coding-system
196   'iso-latin-8 2 ?W                      ; `W' for `Welsh', since `C'   'iso-latin-8 2 ?W                      ; `W' for `Welsh', since `C'
197                                          ; for `Celtic' is taken.                                          ; for `Celtic' is taken.
198   "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)"   "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)."
199   '(ascii latin-iso8859-14 nil nil   '(ascii latin-iso8859-14 nil nil
200     nil nil nil nil nil nil nil nil nil nil nil nil t)     nil nil nil nil nil nil nil nil nil nil nil nil t)
201   '((safe-charsets ascii latin-iso8859-14)   '((safe-charsets ascii latin-iso8859-14)
# Line 217  Ukranian."))                           ; says ISO 8859-1 Line 217  Ukranian."))                           ; says ISO 8859-1
217               (documentation . "\               (documentation . "\
218  This language environment is a generic one for the Latin-8 (ISO-8859-14)  This language environment is a generic one for the Latin-8 (ISO-8859-14)
219  character set which supports the Celtic languages, including those not  character set which supports the Celtic languages, including those not
220  covered by other ISO-8859 character sets: Welsh, Manx Gaelic and  covered by other ISO-8859 character sets:
221  Irish Gaelic (old orthography)."))   Welsh, Manx Gaelic and Irish Gaelic (old orthography)."))
222   '("European"))   '("European"))
223    
224  ;; Latin-9 (ISO-8859-15)  ;; Latin-9 (ISO-8859-15)
225    
226  (make-coding-system  (make-coding-system
227   'iso-latin-9 2 ?0                      ; `0' for `Latin-0'   'iso-latin-9 2 ?0                      ; `0' for `Latin-0'
228   "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)"   "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)."
229   '(ascii latin-iso8859-15 nil nil   '(ascii latin-iso8859-15 nil nil
230     nil nil nil nil nil nil nil nil nil nil nil nil t)     nil nil nil nil nil nil nil nil nil nil nil nil t)
231   '((safe-charsets ascii latin-iso8859-15)   '((safe-charsets ascii latin-iso8859-15)
# Line 266  German (Deutsch Nord)  Guten Tag Line 266  German (Deutsch Nord)  Guten Tag
266  German (Deutsch S,A|(Bd)      Gr,A|_(B Gott")  German (Deutsch S,A|(Bd)      Gr,A|_(B Gott")
267              (documentation . "\              (documentation . "\
268  This language environment is almost the same as Latin-1,  This language environment is almost the same as Latin-1,
269  but the default input method is set to \"german-postfix\"."))  but the default input method is set to \"german-postfix\".
270    Additionally, the tutorial is set to \"TUTORIAL.de\"."))
271   '("European"))   '("European"))
272    
273  (set-language-info-alist  (set-language-info-alist
# Line 324  and it selects the Spanish tutorial.")) Line 325  and it selects the Spanish tutorial."))
325             (sample-text . "Er is een aantal manieren waarop je dit kan doen")             (sample-text . "Er is een aantal manieren waarop je dit kan doen")
326             (documentation . "\             (documentation . "\
327  This language environment is almost the same as Latin-1,  This language environment is almost the same as Latin-1,
328  but select's the Dutch tutorial."))  but the Dutch tutorial is selected."))
329   '("European"))   '("European"))
330    
331  ;; For Turkish, the character set ISO-8859-9 (Latin-5) is used.  But,  ;; For Turkish, the character set ISO-8859-9 (Latin-5) is used.  But,
# Line 568  but select's the Dutch tutorial.")) Line 569  but select's the Dutch tutorial."))
569    "CCL program to encode Mac Roman")    "CCL program to encode Mac Roman")
570    
571  (make-coding-system  (make-coding-system
572   'mac-roman 4 ?M "Mac Roman Encoding"   'mac-roman 4 ?M
573     "Mac Roman Encoding (MIME:MACINTOSH)."
574   '(decode-mac-roman . encode-mac-roman)   '(decode-mac-roman . encode-mac-roman)
575   '((safe-chars . mac-roman-encoder)   '((safe-chars . mac-roman-encoder)
576     (valid-codes (0 . 255))     (valid-codes (0 . 255))

Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67

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