[Emacs-diffs] trunk r116149: * net/shr.el (shr-tag-img): Prefer the title over the alt text.

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 116149
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/16537
author: Adam Sjogren <address@hidden>
committer: Lars Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Fri 2014-01-24 17:52:16 -0700
message:
  * net/shr.el (shr-tag-img): Prefer the title over the alt text.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/shr.el                shr.el-20101002102929-yfzewk55rsg0mn93-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-01-24 07:29:39 +0000
+++ b/lisp/ChangeLog    2014-01-25 00:52:16 +0000
@@ -1,3 +1,8 @@
+2014-01-25  Adam Sjøgren  <address@hidden>
+
+       * net/shr.el (shr-tag-img): Prefer the title over the alt text
+       (bug#16537).
+
 2014-01-24  Juanma Barranquero  <address@hidden>
 
        * net/eww.el (eww-download-callback):

=== modified file 'lisp/net/shr.el'
--- a/lisp/net/shr.el   2014-01-12 23:34:33 +0000
+++ b/lisp/net/shr.el   2014-01-25 00:52:16 +0000
@@ -1228,7 +1228,9 @@
          (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)