* net/shr.el (shr-tag-img): Prefer the title over the alt text.

Fixes: debbugs:16537

* net/shr.el (shr-tag-img): Prefer the title over the alt text.
Fixes: debbugs:16537
35408b1a · Adam Sjøgren · Lars Ingebrigtsen · c13b1a2d · 35408b1a · 35408b1a
Commit 35408b1a authored Jan 24, 2014 by Adam Sjøgren Committed by Lars Ingebrigtsen Jan 24, 2014
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/net/shr.el lisp/net/shr.el +3 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2014-01-25  Adam Sjøgren  <asjo@koldfront.dk>
+
+	* net/shr.el (shr-tag-img): Prefer the title over the alt text
+	(bug#16537).
+
 2014-01-24  Juanma Barranquero  <lekktu@gmail.com>

 	* net/eww.el (eww-download-callback):

--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1228,7 +1228,9 @@ The preference is a float determined from `shr-prefer-media-type'."
 	  (put-text-property start (point) 'image-url url)
 	  (put-text-property start (point) 'image-displayer
 			     (shr-image-displayer shr-content-function))
-	  (put-text-property start (point) 'help-echo alt))
+	  (put-text-property start (point) 'help-echo
+			     (or (cdr (assq :title cont))
+				 alt)))
 	(setq shr-state 'image)))))

 (defun shr-tag-pre (cont)