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

[Werner LEMBERG]

Index: emacs/lisp/language/european.el
diff -c emacs/lisp/language/european.el:1.66 
emacs/lisp/language/european.el:1.67
*** emacs/lisp/language/european.el:1.66        Sat Dec 15 12:43:05 2001
--- emacs/lisp/language/european.el     Tue Dec 18 12:46:58 2001
***************
*** 34,40 ****
  
  (make-coding-system
   'iso-latin-1 2 ?1
!  "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)"
   '(ascii latin-iso8859-1 nil nil
     nil nil nil nil nil nil nil nil nil nil nil nil t)
   '((safe-charsets ascii latin-iso8859-1)
--- 34,40 ----
  
  (make-coding-system
   'iso-latin-1 2 ?1
!  "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)."
   '(ascii latin-iso8859-1 nil nil
     nil nil nil nil nil nil nil nil nil nil nil nil t)
   '((safe-charsets ascii latin-iso8859-1)
***************
*** 76,82 ****
  
  (make-coding-system
   'iso-latin-2 2 ?2
!  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-2)"
   '(ascii latin-iso8859-2 nil nil
     nil nil nil nil nil nil nil)
   '((safe-charsets ascii latin-iso8859-2)
--- 76,82 ----
  
  (make-coding-system
   'iso-latin-2 2 ?2
!  "ISO 2022 based 8-bit encoding for Latin-2 (MIME:ISO-8859-2)."
   '(ascii latin-iso8859-2 nil nil
     nil nil nil nil nil nil nil)
   '((safe-charsets ascii latin-iso8859-2)
***************
*** 110,116 ****
  
  (make-coding-system
   'iso-latin-3 2 ?3
!  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-3)"
   '(ascii latin-iso8859-3 nil nil
     nil nil nil nil nil nil nil)
   '((safe-charsets ascii latin-iso8859-3)
--- 110,116 ----
  
  (make-coding-system
   'iso-latin-3 2 ?3
!  "ISO 2022 based 8-bit encoding for Latin-3 (MIME:ISO-8859-3)."
   '(ascii latin-iso8859-3 nil nil
     nil nil nil nil nil nil nil)
   '((safe-charsets ascii latin-iso8859-3)
***************
*** 138,144 ****
  
  (make-coding-system
   'iso-latin-4 2 ?4
!  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-4)"
   '(ascii latin-iso8859-4 nil nil
     nil nil nil nil nil nil nil)
   '((safe-charsets ascii latin-iso8859-4)
--- 138,144 ----
  
  (make-coding-system
   'iso-latin-4 2 ?4
!  "ISO 2022 based 8-bit encoding for Latin-4 (MIME:ISO-8859-4)."
   '(ascii latin-iso8859-4 nil nil
     nil nil nil nil nil nil nil)
   '((safe-charsets ascii latin-iso8859-4)
***************
*** 166,172 ****
  
  (make-coding-system
   'iso-latin-5 2 ?9
!  "ISO 2022 based 8-bit encoding (MIME:ISO-8859-9)"
   '(ascii latin-iso8859-9 nil nil
     nil nil nil nil nil nil nil)
   '((safe-charsets ascii latin-iso8859-9)
--- 166,172 ----
  
  (make-coding-system
   'iso-latin-5 2 ?9
!  "ISO 2022 based 8-bit encoding for Latin-5 (MIME:ISO-8859-9)."
   '(ascii latin-iso8859-9 nil nil
     nil nil nil nil nil nil nil)
   '((safe-charsets ascii latin-iso8859-9)
***************
*** 185,192 ****
             (input-method . "latin-5-postfix")
             (documentation . "\
  These languages are supported with the Latin-5 (ISO-8859-9) character set:
! Bulgarian, Byelorussian, (Slavic) Macedonian, Russian, Serbian and
! Ukranian."))                          ; says ISO 8859-1
   '("European"))
  
  
--- 185,192 ----
             (input-method . "latin-5-postfix")
             (documentation . "\
  These languages are supported with the Latin-5 (ISO-8859-9) character set:
!  Bulgarian, Byelorussian, (Slavic) Macedonian, Russian, Serbian and
!  Ukranian."))                         ; says ISO 8859-1
   '("European"))
  
  
***************
*** 195,201 ****
  (make-coding-system
   'iso-latin-8 2 ?W                    ; `W' for `Welsh', since `C'
                                        ; for `Celtic' is taken.
!  "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)"
   '(ascii latin-iso8859-14 nil nil
     nil nil nil nil nil nil nil nil nil nil nil nil t)
   '((safe-charsets ascii latin-iso8859-14)
--- 195,201 ----
  (make-coding-system
   'iso-latin-8 2 ?W                    ; `W' for `Welsh', since `C'
                                        ; for `Celtic' is taken.
!  "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)."
   '(ascii latin-iso8859-14 nil nil
     nil nil nil nil nil nil nil nil nil nil nil nil t)
   '((safe-charsets ascii latin-iso8859-14)
***************
*** 217,231 ****
             (documentation . "\
  This language environment is a generic one for the Latin-8 (ISO-8859-14)
  character set which supports the Celtic languages, including those not
! covered by other ISO-8859 character sets: Welsh, Manx Gaelic and
! Irish Gaelic (old orthography)."))
   '("European"))
  
  ;; Latin-9 (ISO-8859-15)
  
  (make-coding-system
   'iso-latin-9 2 ?0                    ; `0' for `Latin-0'
!  "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)"
   '(ascii latin-iso8859-15 nil nil
     nil nil nil nil nil nil nil nil nil nil nil nil t)
   '((safe-charsets ascii latin-iso8859-15)
--- 217,231 ----
             (documentation . "\
  This language environment is a generic one for the Latin-8 (ISO-8859-14)
  character set which supports the Celtic languages, including those not
! covered by other ISO-8859 character sets:
!  Welsh, Manx Gaelic and Irish Gaelic (old orthography)."))
   '("European"))
  
  ;; Latin-9 (ISO-8859-15)
  
  (make-coding-system
   'iso-latin-9 2 ?0                    ; `0' for `Latin-0'
!  "ISO 2022 based 8-bit encoding for Latin-9 (MIME:ISO-8859-15)."
   '(ascii latin-iso8859-15 nil nil
     nil nil nil nil nil nil nil nil nil nil nil nil t)
   '((safe-charsets ascii latin-iso8859-15)
***************
*** 266,272 ****
  German (Deutsch S,A|(Bd)    Gr,A|_(B Gott")
            (documentation . "\
  This language environment is almost the same as Latin-1,
! but the default input method is set to \"german-postfix\"."))
   '("European"))
  
  (set-language-info-alist
--- 266,273 ----
  German (Deutsch S,A|(Bd)    Gr,A|_(B Gott")
            (documentation . "\
  This language environment is almost the same as Latin-1,
! but the default input method is set to \"german-postfix\".
! Additionally, the tutorial is set to \"TUTORIAL.de\"."))
   '("European"))
  
  (set-language-info-alist
***************
*** 324,330 ****
           (sample-text . "Er is een aantal manieren waarop je dit kan doen")
           (documentation . "\
  This language environment is almost the same as Latin-1,
! but select's the Dutch tutorial."))
   '("European"))
  
  ;; For Turkish, the character set ISO-8859-9 (Latin-5) is used.  But,
--- 325,331 ----
           (sample-text . "Er is een aantal manieren waarop je dit kan doen")
           (documentation . "\
  This language environment is almost the same as Latin-1,
! but the Dutch tutorial is selected."))
   '("European"))
  
  ;; For Turkish, the character set ISO-8859-9 (Latin-5) is used.  But,
***************
*** 568,574 ****
    "CCL program to encode Mac Roman")
  
  (make-coding-system
!  'mac-roman 4 ?M "Mac Roman Encoding"
   '(decode-mac-roman . encode-mac-roman)
   '((safe-chars . mac-roman-encoder)
     (valid-codes (0 . 255))
--- 569,576 ----
    "CCL program to encode Mac Roman")
  
  (make-coding-system
!  'mac-roman 4 ?M
!  "Mac Roman Encoding (MIME:MACINTOSH)."
   '(decode-mac-roman . encode-mac-roman)
   '((safe-chars . mac-roman-encoder)
     (valid-codes (0 . 255))