* 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 (file)
--- 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 (file)
--- 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)