[Mew-dist 14285] Re: b63

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 14275] Re: b63
Message-ID: <20000927.171153.02266676.kazu at example.com>
Date: Wed, 27 Sep 2000 17:13:42 +0900

> > (defsubst-maybe find-coding-system (obj)
> >   "Return OBJ if it is a coding-system."
> >   (if (coding-system-p obj)
> >       obj))
> > 
> > ということの様ですね。ありゃりゃ。
> 
> nil を返すのは意図的なのでしょうかね。APEL のバグなら、APEL 側で対応す
> べきですね。

# APEL の ML に入って ^^;;;、聞いてきました。

もともと

「nil を引数としたときの挙動は未定義動作だったのじゃないか」

ということの様です。今後 APEL が修正されるかどうかは不明なのです
が、修正されたとしても、Mew ユーザで APEL をインストールしている
人々すべてに行き渡るには時間がかかると思うので、付属のパッチをあ
ててくださるとありがたいです。

-- 
白井秀行 (mailto:shirai at example.com)

--- mew-mule2.el.orig	Tue Sep 26 21:23:40 2000
+++ mew-mule2.el	Thu Sep 28 11:07:40 2000
@@ -9,7 +9,8 @@
 (defconst mew-mule2-version "mew-mule2.el version 0.09")
 
 ;; must be here
-(if (fboundp 'find-coding-system)
+(if (and (fboundp 'find-coding-system)
+	 (subrp (symbol-function 'find-coding-system)))
     (fset 'mew-coding-system-p (symbol-function 'find-coding-system))
   (fset 'mew-coding-system-p (symbol-function 'coding-system-p)))
 
--- mew-mule3.el.orig	Tue Sep 26 21:23:40 2000
+++ mew-mule3.el	Thu Sep 28 11:08:06 2000
@@ -9,7 +9,8 @@
 (defconst mew-mule3-version "mew-mule3.el version 0.14")
 
 ;; must be here
-(if (fboundp 'find-coding-system)
+(if (and (fboundp 'find-coding-system)
+	 (subrp (symbol-function 'find-coding-system)))
     (fset 'mew-coding-system-p (symbol-function 'find-coding-system))
   (fset 'mew-coding-system-p (symbol-function 'coding-system-p)))