* pccl.el (ccl-compat): Since mule 2.3 accepts `t' and `nil' as `type'

[elisp/apel.git] / pccl.el

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)