At 08:46 AM 5/15/00 -0400, Katsumi Yamaoka wrote:
The following code is how SEMI shows an image inline under XEmacs.
(let ((data
(concat
"GIF87a\x10\x00\x10\x00\xf0\x00\x00\x00\x00\x00\xff"
"\xff\xff\x2c\x00\x00\x00\x00\x10\x00\x10\x00\x00"
"\x02\x1f\x8c\x6f\xa0\xab\x88\xcc\xdc\x81\x4b\x26"
"\x0a\x6c\xc0\xd9\x72\xfd\x79\x1c\x06\x92\x22\x55"
"\xa2\x27\x94\xb2\x6b\xf4\x56\x56\x01\x00\x3b")))
(set-extent-end-glyph
(make-extent (point-max) (point-max))
(make-glyph
(make-image-instance (vector 'gif :data data)))))
Recently, with latest 21.2 CVS, it causes an error or it crashes
XEmacs as the case may be. Here is a backtrace.
Signaling: (wrong-type-argument symbolp #<INTERNAL OBJECT (XEmacs bug?)
(symbol-value-forward type 13) 0x32048c>)
make-image-instance([gif :data "GIF87a..."])
(make-glyph (make-image-instance (vector ... :data data)))
Is it a XEmacs bug? or should we revise the code in SEMI?
I expect its my fault.
andy
--------------------------------------------------------------
Dr Andy Piper
Principal Consultant, BEA Systems Ltd