[Message Prev][Message Next][Thread Prev][Thread Next][Message Index][Thread Index]
bug report
- X-ml-count: 4225
- Subject: bug report
- From: YAGI Tatsuya <ynyaaa@xxxxxxxxx>
- Date: Sun, 18 Aug 2002 02:10:43 +0900
- User-agent: T-gnus/6.15.6 (based on Oort Gnus v0.06) SEMI/1.14.3 (Ushinoya) FLIM/1.14.3 (Unebigoryōmae) APEL/10.2 Emacs/20.7 (i386-*-nt5.1.2600) MULE/4.1 (AOI) Meadow/1.15pre1 (SHOUBU:63)
矢木です。
次の式を評価すると Meadow が死にます。
Meadow-1.15pre1 (SHOUBU:63)
Microsoft Windows XP [Version 5.1.2600]
(let ((filename "jiskan16.bdf") ;; bdf font file の path
(fontname "test-jiskan16")
(encoding 0)
(fontset "default-fontset"))
(w32-auto-regist-bdf-font fontname filename encoding)
(set-fontset-font fontset 'japanese-jisx0208 fontname)
(let ((i (1- ?!)))
(while (<= (setq i (1+ i)) ?~)
(let ((j (1- ?!)))
(while (<= (setq j (1+ j)) ?~)
(insert (make-char 'japanese-jisx0208 i j))))
(insert ?\n)
(sit-for 0)
))
(w32-change-font-logfont fontname 0 (list 'bdf-font filename)))
おわり