From: Adam Sjøgren Date: Sat, 25 Jan 2014 00:52:16 +0000 (-0700) Subject: * net/shr.el (shr-tag-img): Prefer the title over the alt text. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~258 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35408b1a6c92b5cf65ee0ff6e61149eee4ba1604;p=emacs.git * net/shr.el (shr-tag-img): Prefer the title over the alt text. Fixes: debbugs:16537 --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 193ac3ec71c..4d0f99178f8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-01-25 Adam Sjøgren + + * net/shr.el (shr-tag-img): Prefer the title over the alt text + (bug#16537). + 2014-01-24 Juanma Barranquero * net/eww.el (eww-download-callback): diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 7ef49eaf2d4..1491512087d 100644 --- 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)