(mac-roman): Add mime-charset property.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2be8587e159181476f80ed72dbae925ab4a9b4d6..54453a5c63a4573f5ee9566b5f903933c5ee5ee9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2002-12-15  Dave Love  <fx@gnu.org>
+
+       * language/european.el (mac-roman): Add mime-charset property.
+
+       * loadup.el (current-language-environment): Set custom-type after
+       language files are loaded.
+
 2002-12-13  Kenichi Handa  <handa@m17n.org>
 
        * language/european.el (encode-mac-roman): Fix last change.

diff --git a/lisp/language/european.el b/lisp/language/european.el
index 0801516cbe7a657e314c7f4132f8ba0afe27ee6c..4de046161f6a978f93f73a397f49caa88957403d 100644 (file)
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -291,8 +291,8 @@ but default input method is set to \"german-postfix\"."))
            (sample-text . "Spanish (Espa\e,Aq\e(Bol)     \e,A!\e(BHola!")
            (documentation . "\
 This language environment is almost the same as Latin-1,
-but default input method is set to \"spanish-postfix\",
-and select's the Spanish tutorial."))
+but it sets the default input method to \"spanish-postfix\",
+and selects the Spanish tutorial."))
  '("European"))
 
 (set-language-info-alist
@@ -527,7 +527,8 @@ but it selects the Dutch tutorial."))
  'mac-roman 4 ?M "Mac Roman Encoding"
  '(decode-mac-roman . encode-mac-roman)
  (list (cons 'safe-chars (get 'mac-roman-encoder 'translation-table))
-       '(valid-codes (0 . 255))))
+       '(valid-codes (0 . 255))
+       '(mime-charset . macintosh)))
 
 (provide 'european)