[Mew-dist 04177] Re: kiki と jiji を表示しよう ! (Re: BDF font durability test)

[YAMAGUCHI, Shuhei]

>>> In article <19980313002959Q.non at example.com>,
>>>    Sawada Toyonobu <non at example.com> writes:

  non> で、やってみました。M-x mewすると、ほぼ100％Emacsが落ちます(T_T)。
  non> どうやってもだめなのかと思ったのですが、大丈夫の時もあるようです。
(snip)
  non> mew-1.93b24 Emacs-20.2+canna FreeBSD2.2.1 で、使ってます。

じつはこの現象、最初に小関さんのxbmデモができたときに、自分で改造して
経験済みだったりします。
#Meadowではちゃんと動いたのですけど、FreeBSD-2.2.5 + Emacs-20.2ではダ
#メなのです。 ;_;
#最初に試した当時は純粋なEmacs-20.2、今はWnn6パッチ版です。


  non> あと、落ちる時にはミニバッファに
  non> Mark setとちらっとでてます。

これは、insert-fileが出しているのでしょう。
insert-file-contentsにすれば出ないです。


  non> 一体何が悪いのでしょうか？

Emacs-20.2のバグですかねぇ…。
でも、MeadowもEmacs-20.2ベースだし、FreeBSD-2.2.xだけなのかなぁ…。

ただ、はっきりはしていませんが、ほんの少し現象が見えてきました。
小関さんの[Mew-dist 04171]と[Mew-dist 04172]をまとめようと、
Mew.img -> Mew.xbmの順にチェックするようにしてみたのですが、今のところ
落ちていません。
この改造の際、condition-caseを追加したのですが、そのあたりに関係あるの
かもしれません。

では、改造版をつけておきます。
[Mew-dist 04171]および[Mew-dist 04172]のmew-demo.elに対するパッチの代
わりに充ててください。
[Mew-dist 04172]の他の部分のパッチは充てる必要があります。

でわでわ
-- 
yamagus at example.com / やまぐち＠ねっとらぴゅたの住人
  yamagus at example.com / 山口 修平
PGP-Fingerprint: 25 0F 6F E1 57 AD 56 08  3A BC D0 9B 48 AF 31 7A
-------------- next part --------------
--- mew-demo.el.orig	Thu Mar 12 00:11:35 1998
+++ mew-demo.el	Fri Mar 13 01:10:43 1998
@@ -79,8 +79,23 @@
       (sit-for 0) ;; to redraw
       )
      ((and (featurep 'bitmap) mew-demo-picture)
-      (bitmap-insert-xbm-file 
-       (expand-file-name mew-icon-mew-mono mew-icon-directory))
+      (or
+       (condition-case nil
+	   (insert-file-contents
+	    (expand-file-name mew-icon-mew-mule-bitmap-image
+			      mew-icon-directory))
+	 (file-error nil))
+       (condition-case nil
+	   (let ((buf (generate-new-buffer "*Mew.xbm*")))
+	     (unwind-protect
+		 (progn
+		   (save-excursion
+		     (set-buffer buf)
+		     (insert-file-contents
+		      (expand-file-name mew-icon-mew-mono mew-icon-directory)))
+		   (bitmap-insert-xbm-buffer buf))
+	       (kill-buffer buf)))
+	 (file-error nil)))
       (center-region (point-min) (point-max))
       (sit-for 0) ;; to redraw
       )