From: akr <akr>
Date: Fri, 1 Jun 2001 08:08:48 +0000 (+0000)
Subject: * pccl.el (ccl-compat): Since mule 2.3 accepts `t' and `nil' as `type'
X-Git-Tag: apel-10_3-1~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4a816b66bd781e2851608d7f66563a75dc4093d8;p=elisp%2Fapel.git

* pccl.el (ccl-compat): Since mule 2.3 accepts `t' and `nil' as `type'
argument, so arguments conversion shouln't applied in such case.
---

diff --git a/ChangeLog b/ChangeLog
index 62d4668..566e2ec 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-06-01  Tanaka Akira      <akr@m17n.org>
+
+	* pccl.el (ccl-compat): Since mule 2.3 accepts `t' and `nil' as `type'
+	argument, so arguments conversion shouln't applied in such case.
+	
 2001-05-24  Tanaka Akira      <akr@m17n.org>
 
 	* pccl.el (accept-long-ccl-program): Don't advice for Emacs 21.
diff --git a/pccl.el b/pccl.el
index 4b0dead..646bab7 100644
--- a/pccl.el
+++ b/pccl.el
@@ -151,7 +151,7 @@ Value is a list of transformed arguments."
     (defadvice make-coding-system
       (before ccl-compat (name type &rest ad-subr-args) activate)
       "Emulate XEmacs style make-coding-system."
-      (when (symbolp type)
+      (when (and (symbolp type) (not (memq type '(t nil))))
         (let ((args (apply 'transform-make-coding-system-args
 	                   name type ad-subr-args)))
 	  (setq type (cadr args)