[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

image and underline text



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>