[Emacs-diffs] Changes to emacs/lisp/language/european.el

[Dave Love]

Index: emacs/lisp/language/european.el
diff -c emacs/lisp/language/european.el:1.71 
emacs/lisp/language/european.el:1.72
*** emacs/lisp/language/european.el:1.71        Tue Mar  5 13:54:18 2002
--- emacs/lisp/language/european.el     Wed Jul 24 18:19:28 2002
***************
*** 2,8 ****
  
  ;; Copyright (C) 1995, 1997, 2001 Electrotechnical Laboratory, JAPAN.
  ;; Licensed to the Free Software Foundation.
! ;; Copyright (C) 2001 Free Software Foundation, Inc.
  
  ;; Keywords: multilingual, European
  
--- 2,8 ----
  
  ;; Copyright (C) 1995, 1997, 2001 Electrotechnical Laboratory, JAPAN.
  ;; Licensed to the Free Software Foundation.
! ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
  
  ;; Keywords: multilingual, European
  
***************
*** 252,258 ****
  (set-language-info-alist
   "German" '((tutorial . "TUTORIAL.de")
            (charset ascii latin-iso8859-1)
!           (coding-system iso-latin-1)
            (coding-priority iso-latin-1)
            (input-method . "german-postfix")
            (nonascii-translation . iso-latin-1)
--- 252,258 ----
  (set-language-info-alist
   "German" '((tutorial . "TUTORIAL.de")
            (charset ascii latin-iso8859-1)
!           (coding-system iso-latin-1 iso-latin-9)
            (coding-priority iso-latin-1)
            (input-method . "german-postfix")
            (nonascii-translation . iso-latin-1)
***************
*** 270,276 ****
  (set-language-info-alist
   "French" '((tutorial . "TUTORIAL.fr")
            (charset ascii latin-iso8859-1)
!           (coding-system iso-latin-1)
            (coding-priority iso-latin-1)
            (nonascii-translation . latin-iso8859-1)
            (unibyte-syntax . "latin-1")
--- 270,276 ----
  (set-language-info-alist
   "French" '((tutorial . "TUTORIAL.fr")
            (charset ascii latin-iso8859-1)
!           (coding-system iso-latin-1 iso-latin-9)
            (coding-priority iso-latin-1)
            (nonascii-translation . latin-iso8859-1)
            (unibyte-syntax . "latin-1")
***************
*** 298,304 ****
  (set-language-info-alist
   "Spanish" '((tutorial . "TUTORIAL.es")
            (charset ascii latin-iso8859-1)
!           (coding-system iso-latin-1)
            (coding-priority iso-latin-1)
            (input-method . "spanish-postfix")
            (nonascii-translation . iso-latin-1)
--- 298,304 ----
  (set-language-info-alist
   "Spanish" '((tutorial . "TUTORIAL.es")
            (charset ascii latin-iso8859-1)
!           (coding-system iso-latin-1 iso-latin-9)
            (coding-priority iso-latin-1)
            (input-method . "spanish-postfix")
            (nonascii-translation . iso-latin-1)
***************
*** 314,328 ****
  (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"))
  
  ;; For Turkish, the character set ISO-8859-9 (Latin-5) is used.  But,
--- 314,329 ----
  (set-language-info-alist
   "Dutch" '((tutorial . "TUTORIAL.nl")
           (charset ascii latin-iso8859-1)
!          (coding-system iso-latin-1 iso-latin-9)
           (coding-priority iso-latin-1)
           (nonascii-translation . iso-latin-1)
           (unibyte-syntax . "latin-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,
***************
*** 332,338 ****
  
  (set-language-info-alist
   "Turkish" '((charset ascii latin-iso8859-9)
!            (coding-system iso-latin-5)
             (coding-priority iso-latin-5)
             (nonascii-translation . latin-iso8859-9)
             (unibyte-syntax . "latin-5")
--- 333,339 ----
  
  (set-language-info-alist
   "Turkish" '((charset ascii latin-iso8859-9)
!            (coding-system iso-latin-5 iso-latin-3)
             (coding-priority iso-latin-5)
             (nonascii-translation . latin-iso8859-9)
             (unibyte-syntax . "latin-5")
***************
*** 361,366 ****
--- 362,368 ----
  (set-language-info-alist
   "Welsh" `((coding-system utf-8 latin-8) ; the input method is Unicode-based
           (coding-priority utf-8 latin-8)
+          (nonascii-translation . iso-8859-14)
           (input-method . "welsh")
           (documentation . "Support for Welsh, using Unicode."))
   '("European"))
***************
*** 368,373 ****
--- 370,376 ----
  (set-language-info-alist
   "Latin-7" `((coding-system latin-7)
             (coding-priority latin-7)
+            (nonascii-translation . iso-8859-13)
             ;; Fixme: input-method
             (features code-pages)
             (documentation . "Support for Latin-7, e.g. Latvian, Lithuanian."))