On Tue, May 05, 2015 at 10:14:31PM +0300, Eli Zaretskii wrote:
>
> This variant works as you expect:
> 
> (defun image-wipe-and-insert-two-maps ()
>   (interactive)
>   (let ()
>     (with-current-buffer (get-buffer-create "*an image area test buffer*")
>       (switch-to-buffer (current-buffer))
>       (erase-buffer)
>       (insert-image (find-image '((:type png :file "/usr/share/emacs/24.4/etc/images/icons/hicolor/128x128/apps/emacs.png"
> 					 :map (list
> 						((rect . ((0 . 0) . (50 . 50))) anAreaID (pointer hourglass help-echo "You found an area!"))
> 						((rect . ((51 . 51) . (100 . 100))) aSecondAreaID (pointer hand help-echo "You found another area!")))
> 					 ;; :relief -20
> 					 ;; :conversion laplace
> 					 :margin (0 . 0)
> 					 :pointer arrow)))))))
> 
> (Figuring out why you need that explicit call to 'list' is left as an
> exercise ;-)

Thanks again, another thing I missed!

best regards,

-- 
patrick