Next: Q5.1.10, Previous: Q5.1.8, Up: Miscellaneous
Here is a solution that will insert the glyph annotation at the beginning of buffer:
(make-annotation (make-glyph '([FORMAT :file FILE] [string :data "fallback-text"])) (point-min) 'text (current-buffer))
Replace ‘FORMAT’ with an unquoted symbol representing the format of
the image (e.g. xpm
, xbm
, gif
, jpeg
, etc.)
Instead of ‘FILE’, use the image file name
(e.g.
/usr/local/lib/sxemacs-22.1.4/etc/recycle.xpm).
You can turn this to a function (that optionally prompts you for a file
name), and inserts the glyph at (point)
instead of
(point-min)
.