[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
image and underline text
- From: Katsumi Yamaoka <yamaoka@xxxxxxx>
- Date: 10 May 2001 20:04:02 +0900
- X-ml-name: emacs-w3m
- X-mail-count: 00736
Dear Emacs developers,
I am using Emacs 21.0.103. The following code shows an image
and a horizontal line (I can see a whole line through an image).
Is it a correct behavior?
(let ((image
(create-image;; 48x48 gif
(base64-decode-string
"R0lGODdhMAAwAIAAAAAAAP///ywAAAAAMAAwAAACc4SPqcuNAaOctNobDN68
6w6G0SeWG2mmFKq2GeDGr+yytGjfYK5zfI/5AS3C4Qpm3CGTviUz6HwSo9JjFXq9FKXbZ5
f5TYaN42EZeO6ldetbm/aWxWPzGjULqbf0Kn7KbwJYIohzh0cYgqiEV+Hg+Ah5UAAAOw==")
'gif t))
(buffer (get-buffer-create "*test*")))
(pop-to-buffer buffer)
(erase-buffer)
(insert " UNDERLINE ")
(put-text-property (point-min) (point) 'face 'underline)
(put-text-property (+ (point-min) 2) (- (point) 2) 'display image))
Regards,
--
Katsumi Yamaoka <yamaoka@jpl.org>