--- shr.el~	2016-07-21 08:35:17.668496000 +0000
+++ shr.el	2016-07-22 11:05:56.349491100 +0000
@@ -937,7 +937,7 @@
 		(while properties
 		  (let ((type (pop properties))
 			(value (pop properties)))
-		    (unless (memq type '(display image-size))
+		    (unless (memq type '(display image-size keymap))
 		      (put-text-property start (point) type value))))))))))
     (kill-buffer image-buffer)))