advised make-coding-system

[Tanaka Akira]

In article <yosubso81vns.fsf ＠ jpl.org.We.hate.spammers>,
  Katsumi Yamaoka <yamaoka ＠ jpl.org> writes:

> 少なくとも Mule 2.3 ＠ 19.34 で、CVS の先端にある APEL が使えなくなっ
> ています。以下は pces-om.el の
> 
> (make-coding-system 'binary nil ?= "No conversion")
> 
> という部分が評価されたときに起こるエラーです。

なるほど。Mule 2.3 の make-coding-system は type に nil と t を受け付
けるんですね... 知りませんでした。

> 半ば当てずっぽうですが、pccl.el で make-coding-system を advice
> している部分は、次のようにするのが良いのではないでしょうか?
> [2 pccl.el.diff <application/octet-stream (7bit)>]
> --- pccl.el~	Thu May 24 03:33:23 2001
> +++ pccl.el	Fri Jun  1 07:55:07 2001
> @@ -151,7 +151,7 @@
>      (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 type (symbolp type))
>          (let ((args (apply 'transform-make-coding-system-args
>  	                   name type ad-subr-args)))
>  	  (setq type (cadr args)

これだと t の場合を救えませんねぇ。symbol であるが nil と t ではない、
という条件をきれいに書くにはどうしたらいいかなぁ?

どこでも XEmacs style の make-coding-system が使える世界への道は遠ひ...
-- 
[田中 哲][たなか あきら][Tanaka Akira]
「ふえろ! わかめちゃん作戦です♡」(Little Worker, 桂遊生丸)