From: tomo <tomo>
Date: Mon, 28 Feb 2005 18:05:52 +0000 (+0000)
Subject: (iso-2022-jp-2): Specify `ccs-priority-list' in XEmacs CHISE.
X-Git-Tag: r21-4-15-chise-0_22^2~324
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b6b2b283679d9861643e00c73562a1f77a1117da;p=chise%2Fxemacs-chise.git-

(iso-2022-jp-2): Specify `ccs-priority-list' in XEmacs CHISE.
---

diff --git a/lisp/mule/mule-coding.el b/lisp/mule/mule-coding.el
index c0a951b..96f9514 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,2003,2004 MORIOKA Tomohiko
+;; Copyright (C) 1997,1999,2002,2003,2004,2005 MORIOKA Tomohiko
 
 ;; This file is part of XEmacs.
 
@@ -124,12 +124,20 @@
 (make-coding-system
  'iso-2022-jp-2 'iso2022
  "ISO-2022 coding system using SS2 for 96-charset in 7-bit code."
- '(charset-g0 ascii
-   charset-g2 t ;; unspecified but can be used later.
-   seven t
-   short t
-   mnemonic "ISO7/SS"
-   eol-type nil))
+ (let ((conf
+	'(charset-g0 ascii
+          charset-g2 t ;; unspecified but can be used later.
+	  seven t
+	  short t
+	  mnemonic "ISO7/SS"
+	  eol-type nil)))
+   (if (featurep 'utf-2000)
+       (list* 'ccs-priority-list
+	      '(ascii
+		=jis-x0208@1983 =jis-x0208@1978
+		latin-jisx0201)
+	      conf)
+     conf)))
 
 (make-coding-system
  'iso-2022-7bit 'iso2022