meadow3 crash

[YAGI Tatsuya <ynyaaa@xxxxxxxxx>]

矢木です。

font の設定のテストをしているうちに meadow が落ちました。
再現条件はいまいちはっきりしませんが、末尾の式を評価して
q を入力してエラー→デバッガ終了を大体 5〜20 回くり返すと
meadow が異常終了します。

バージョンは Meadow-3.00-r3935 を netinstall でインストールしたものです。
meadow 2.11 では再現しませんでした。
;; (Meadow-version) に revision も仕込んどいて欲しいな。

おわり
(progn
  (define-key global-map "q" 'test-crash)
  (setq debug-on-error t) 
  (defun test-crash ()
    (interactive)
    (let ((name "test-iso8859-1") lf)
      (define-ccl-program ccl-encode-iso8859-1-font
	'(0 ((r2 |= (r1 | 128))
	     (r1 = 0)
	     )))
      (w32-regist-font-encoder 'encode-iso8859-1-font
			       'ccl-encode-iso8859-1-font 2)
      (setq lf '(w32-logfont "Courier" 0 16 400 0 nil nil nil 0 1 1 49))
      (funcall
       (if (w32-list-fonts name) 'w32-change-font 'w32-add-font)
       name
       `((spec
	  ((:char-spec ascii :height any) strict ,lf)
	  ((:char-spec latin-iso8859-1 :height any) strict ,lf
	   ((encoding . encode-iso8859-1-font)))
	  )))
      (set-frame-font name)
      (list-charset-chars 'latin-iso8859-1)
      (redraw-frame (selected-frame))
      (sit-for 0)
      (setq lf '(bdf-font "/nonexiting/font.bdf"))
      (w32-change-font
       name
       `((spec
	  ((:char-spec ascii :height any) strict ,lf)
	  ((:char-spec latin-iso8859-1 :height any) strict ,lf
	   ((encoding . encode-iso8859-1-font)))
	  )))
      (list-charset-chars 'latin-iso8859-1)
      (redraw-frame (selected-frame))
      (sit-for 0)
      (setq lf nil)
      (set-frame-font name)
      (sit-for 0)
      (w32-change-font
       name
       `((spec
	  ((:char-spec ascii :height any) strict ,lf)
	  ((:char-spec latin-iso8859-1 :height any) strict ,lf
	   ((encoding . encode-iso8859-1-font)))
	  )))
      ))
  )