* language/european.el (macintosh): Define as alias for mac-roman.

2 files changed, 5 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cca6b789b31..b35ddc25d73 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-11-19  Andreas Schwab  <schwab@linux-m68k.org>
+
+        * language/european.el (macintosh): Define as alias for mac-roman.
+
 2011-11-19  Eli Zaretskii  <eliz@gnu.org>
 
         * mail/rmailmm.el (rmail-mime-display-header)
diff --git a/lisp/language/european.el b/lisp/language/european.el
index 5bdec6dec7b..3c2cb083ff6 100644
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -613,6 +613,7 @@ method and applying Turkish case rules for the characters i, I, $(D)E(B, $(D*
   :mnemonic ?M
   :charset-list '(mac-roman)
   :mime-charset 'macintosh)
+(define-coding-system-alias 'macintosh 'mac-roman)
 
 (define-coding-system 'next
   "NeXTstep encoding"