/[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.60.4.6 by fx, Sun Dec 15 16:13:13 2002 UTC revision 1.60.4.7 by pot, Fri Feb 7 11:42:24 2003 UTC
# Line 62  character set which supports the followi Line 62  character set which supports the followi
62  We also have specific language environments for the following languages:  We also have specific language environments for the following languages:
63    For Dutch, \"Dutch\".    For Dutch, \"Dutch\".
64    For German, \"German\".    For German, \"German\".
65      For French, \"French\".
66      For Italian, \"Italian\".
67      For Slovenian, \"Slovenian\".
68    For Spanish, \"Spanish\".    For Spanish, \"Spanish\".
69    
70  Latin-1 also covers several written languages outside Europe, including  Latin-1 also covers several written languages outside Europe, including
# Line 250  Latin-9 is sometimes nicknamed `Latin-0' Line 253  Latin-9 is sometimes nicknamed `Latin-0'
253   '("European"))   '("European"))
254    
255  (set-language-info-alist  (set-language-info-alist
256     "Dutch" '((tutorial . "TUTORIAL.nl")
257               (charset ascii latin-iso8859-1)
258               (coding-system iso-latin-1)
259               (coding-priority iso-latin-1)
260               (nonascii-translation . iso-latin-1)
261               (unibyte-syntax . "latin-1")
262               (unibyte-display . iso-latin-1)
263               (sample-text . "Er is een aantal manieren waarop je dit kan doen")
264               (documentation . "\
265    This language environment is almost the same as Latin-1,
266    but it selects the Dutch tutorial and input method."))
267     '("European"))
268    
269    (set-language-info-alist
270   "German" '((tutorial . "TUTORIAL.de")   "German" '((tutorial . "TUTORIAL.de")
271              (charset ascii latin-iso8859-1)              (charset ascii latin-iso8859-1)
272              (coding-system iso-latin-1)              (coding-system iso-latin-1)
# Line 263  German (Deutsch Nord)  Guten Tag Line 280  German (Deutsch Nord)  Guten Tag
280  German (Deutsch S,A|(Bd)      Gr,A|_(B Gott")  German (Deutsch S,A|(Bd)      Gr,A|_(B Gott")
281              (documentation . "\              (documentation . "\
282  This language environment is almost the same as Latin-1,  This language environment is almost the same as Latin-1,
283  but default input method is set to \"german-postfix\"."))  but default input method is set to \"german-postfix\".
284    Additionally, it selects the German tutorial."))
285     '("European"))
286    
287    (set-language-info-alist
288     "French" '((tutorial . "TUTORIAL.fr")
289                (charset ascii latin-iso8859-1)
290                (coding-system iso-latin-1)
291                (coding-priority iso-latin-1)
292                (nonascii-translation . latin-iso8859-1)
293                (unibyte-syntax . "latin-1")
294                (unibyte-display . iso-latin-1)
295                (input-method . "latin-1-prefix")
296                (sample-text . "French (Fran,Ag(Bais)     Bonjour, Salut")
297                (documentation . "\
298    This language environment is almost the same as Latin-1,
299    but it selects the French tutorial and input method."))
300     '("European"))
301    
302    (set-language-info-alist
303     "Italian" '((tutorial . "TUTORIAL.it")
304                (charset ascii latin-iso8859-1)
305                (coding-system iso-latin-1)
306                (coding-priority iso-latin-1)
307                (nonascii-translation . latin-iso8859-1)
308                (unibyte-syntax . "latin-1")
309                (unibyte-display . iso-latin-1)
310                (input-method . "italian-postfix")
311                (sample-text . "Salve, ciao!")
312                (documentation . "\
313    This language environment is almost the same as Latin-1,
314    but sets the default input method to \"italian-postfix\".
315    Additionally, it selects the Italian tutorial."))
316   '("European"))   '("European"))
317    
318  (set-language-info-alist  (set-language-info-alist
# Line 276  but default input method is set to \"ger Line 325  but default input method is set to \"ger
325                (unibyte-display . iso-8859-2)                (unibyte-display . iso-8859-2)
326                (tutorial . "TUTORIAL.sl")                (tutorial . "TUTORIAL.sl")
327                (sample-text . ",B.(Belimo vam uspe,B9(Ben dan!")                (sample-text . ",B.(Belimo vam uspe,B9(Ben dan!")
328                (documentation . t))                (documentation . "\
329    This language environment is almost the same as Latin-2,
330    but it selects the Slovenian tutorial and input method."))
331   '("European"))   '("European"))
332    
333  (set-language-info-alist  (set-language-info-alist
# Line 295  but it sets the default input method to Line 346  but it sets the default input method to
346  and selects the Spanish tutorial."))  and selects the Spanish tutorial."))
347   '("European"))   '("European"))
348    
 (set-language-info-alist  
  "Dutch" '((tutorial . "TUTORIAL.nl")  
            (charset ascii latin-iso8859-1)  
            (coding-system iso-latin-1)  
            (coding-priority iso-latin-1)  
            (nonascii-translation . iso-latin-1)  
            (unibyte-syntax . "latin-1")  
            (unibyte-display . iso-latin-1)  
            (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."))  
  '("European"))  
   
349  ;; 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,
350  ;; before the introduction of ISO-8859-9 in 1988, ISO-8859-3 (Latin-3)  ;; before the introduction of ISO-8859-9 in 1988, ISO-8859-3 (Latin-3)
351  ;; was used for Turkish.  Those who use Latin-3 for Turkish should use  ;; was used for Turkish.  Those who use Latin-3 for Turkish should use
# Line 494  but it selects the Dutch tutorial.")) Line 531  but it selects the Dutch tutorial."))
531    (setq translation-table    (setq translation-table
532          (make-translation-table-from-vector encoding-vector))          (make-translation-table-from-vector encoding-vector))
533    (define-translation-table 'mac-roman-decoder translation-table)    (define-translation-table 'mac-roman-decoder translation-table)
534    (define-translation-table 'mac-roman-encoder    (define-translation-table 'mac-roman-encoder
535      (char-table-extra-slot translation-table 0)))      (char-table-extra-slot translation-table 0)))
536    
537  (define-ccl-program decode-mac-roman  (define-ccl-program decode-mac-roman

Legend:
Removed from v.1.60.4.6  
changed lines
  Added in v.1.60.4.7

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