Re: make-image-instance

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? ;; BTW, the code (fset 'make-image-instance (lambda (i &rest args) i)) ;; can be a first-aid for the SEMI and latest XEmacs users. :-p -- Katsumi Yamaoka <yamaoka(a)jpl.org&gt;