Re: inheriting shimbun-text

[Katsumi Yamaoka <yamaoka@xxxxxxx>]

>>>>>> In [emacs-w3m : No.08119] 村田さん wrote:

>> 例えば,

>> (defun shimbun-content-start (shimbun)
>>   (if (shimbun-prefer-text-plain-internal shimbun)
>>       (or (shimbun-text-content-start-internal shimbun)
>> 	  (shimbun-content-start-internal shimbun))
>>     (or (shimbun-content-start-internal shimbun)
>> 	(shimbun-text-content-start-internal shimbun))))

>> として, luna-class-slot-index 等の物理レイアウトに踏み込む様なもの
>> は, 使わない方が良いと思います.

これを使わせていただきました。

>> 起動後に変更された場合であっても, 実行時に設定されているユーザオプ
>> ションの値で, 処理を変えたいのであれば, こんな感じでどうでしょう?

>> (luna-define-generic shimbun-prefer-text-plain (shimbun))

>> (luna-define-method shimbun-prefer-text-plain ((shimbun shimbun-mainichi))
>>   shimbun-mainichi-prefer-text-plain)

こちらは、各モジュール毎に変数とメソッドを定義しないといけないん
ですね。text/plain と html の切り替えは、頻繁に行なうものではな
いので、今回は実施しませんでした。

それから、shimbun-text の継承が無効になっていたモジュールは、そ
れぞれ実際の動作に合わせて改修しておきました。