From: tomo <tomo>
Date: Sun, 9 Nov 2003 15:40:16 +0000 (+0000)
Subject: (utf-8-mcs): New alias for utf-8 when `utf-2000' is defined.
X-Git-Tag: r21-2-44-utf-2000-m0_18-n0_21-2~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ee04176d8fce5478c1576204bc6d227006797901;p=chise%2Fxemacs-chise.git-

(utf-8-mcs): New alias for utf-8 when `utf-2000' is defined.
---

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index 61306aa..c7236a9 100644
--- a/lisp/mule/mule-coding.el
+++ b/lisp/mule/mule-coding.el
@@ -4,7 +4,7 @@
 ;; Licensed to the Free Software Foundation.
 ;; Copyright (C) 1995 Amdahl Corporation.
 ;; Copyright (C) 1995 Sun Microsystems.
-;; Copyright (C) 1997,1999,2002 MORIOKA Tomohiko
+;; Copyright (C) 1997,1999,2002,2003 MORIOKA Tomohiko
 
 ;; This file is part of XEmacs.
 
@@ -172,6 +172,8 @@
    ))
 
 (when (featurep 'utf-2000)
+  (define-coding-system-alias 'utf-8-mcs 'utf-8)
+
   (make-coding-system
    'utf-8-er 'utf-8
    "Coding-system of ISO/IEC 10646 UTF-8 with entity-reference."