[MD:1330]Bitmap downs meadow when gnus startup.

[kyota@xxxxxxxxxxxxx (Kyotaro HORIGUCHI)]

堀口です.
 1.06b1 になって再び NT 環境のほうでも当たるようになりました^^;

> At 02 Mar 1999 17:43:43 +0900, Keiichi Suzuki <keiichi@xxxxxxxxxxxx> wrote in <u1zj8ffi8.fsf@xxxxxxxxxxxxxxxx>
> > >> 起動直後にいきなり M-x gnus をすると現状で 100% Meadow が落ちます。
> > >> しかし、マウスで frame サイズを大きくしてから変えてやってから同じ操作を
> > >> すると落ちなくなります。

 で, 他の人のところではナカナカ起きないようなので, 無理やり起こす
ことを試してみました.

 meadow -q で起動して, 添付の el ファイルを読みこんで eval-buffer 
すると, 私の環境では cmpchar のパターンが 000...001500-1f00 くら
いの間でこの現象が起きています.

 どうでしょう?

# bdf のファイルの場所とかを正しく修正する必要があります.
--
堀口恭太郎

(require 'bitmap)
(setq bdf-directory "d:/meadow/bdf/")
(if (null (member "k16-ascii" (w32-font-list)))
    (w32-auto-regist-bdf-font "k16-ascii"
			      (concat bdf-directory "8x16rk.bdf")))
(if (null (member "k16-bitmap" (w32-font-list)))
    (w32-auto-regist-bdf-font "k16-bitmap"
			      (concat bdf-directory "etl8x16-bitmap.bdf")))
(if (null (member "k16" (fontset-list)))
    (new-fontset
     "k16"
     '((ascii . "k16-ascii")
       (bitmap . "k16-bitmap"))))
		 
(set-frame-font "k16")
(defun spring-of-compose-characters (lines depth)
  (let ((isbottom (= depth (1- (length lines))))
	format-string
	str)
    (if isbottom (setq format-string
		       (apply 'concat (make-list (length lines) "%02X"))))
    (while (< (aref lines depth) 256)
      (if isbottom
	  (progn
	    (setq str
		  (apply 'format format-string (append lines nil)))
	    (insert (bitmap-compose str))
	    (sit-for 0) ;; will cause display update.
	    (message (concat "composing " str))
	    (aset lines depth (1+ (aref lines depth))))
	;; not bottom
	(if (spring-of-compose-characters lines (1+ depth))
	    (aset lines depth (1+ (aref lines depth)))))
      nil)
    (if isbottom (insert "\n"))
    (aset lines depth 0)
    t))

(pop-to-buffer (get-buffer-create "*testing compchar creation*"))
(spring-of-compose-characters
 [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]
 0)