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

[小関 吉則 (KOSEKI Yoshinori)]

non> Emacs20.2にあげたついでに、やってみました。良いですねぇ。だけど、*Mew
non> hello*を表示中、*Mini buffer*に
non> 	Note: file is write protected
non> って出るんです。このfileとはMew.xbmの事ですか？...なんか違う。

これは Mew.xbm が read only の場合に bitmap.el 中の
bitmap-insert-xbm-file で (find-file-noselect "Mew.xbm")
する時にでるものです。

以下のパッチででなくはなります。

*** mew-demo.el.orig	Wed Feb 25 13:15:21 1998
--- mew-demo.el	Wed Mar 11 13:13:38 1998
***************
*** 79,86 ****
        (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))
        (center-region (point-min) (point-max))
        (sit-for 0) ;; to redraw
        )
--- 79,91 ----
        (sit-for 0) ;; to redraw
        )
       ((and (featurep 'bitmap) mew-demo-picture)
!       (let ((file (expand-file-name mew-icon-mew-mono mew-icon-directory))
!             (buf (generate-new-buffer "*Mew.xbm*")))
!         (save-excursion
!           (set-buffer buf)
!           (insert-file file))
!         (bitmap-insert-xbm-buffer buf)
!         (kill-buffer buf))
        (center-region (point-min) (point-max))
        (sit-for 0) ;; to redraw
        )

--
こせき