[PATCH] Show title attribute of span elements as mouse over text.

[asjo@koldfront.dk (Adam Sjøgren)]

* shr.el (shr-tag-span): New function.
---

Here is an attempt at providing it. What do you think?

  Best regards,

    Adam

 lisp/shr.el |    7 +++++++
 1 files changed, 7 insertions(+), 0 deletions(-)

diff --git a/lisp/shr.el b/lisp/shr.el
index 113137a..05b681e 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -896,6 +896,13 @@ ones, in case fg and bg are nil."
     (shr-indent))
   (shr-generic cont))
 
+(defun shr-tag-span (cont)
+  (let ((title (cdr (assq :title cont))))
+    (shr-generic cont)
+    (when title
+      (let ((overlay (make-overlay (or start shr-start) (point))))
+        (overlay-put overlay 'help-echo title)))))
+
 (defun shr-tag-h1 (cont)
   (shr-heading cont 'bold 'underline))
 
-- 
1.7.4.1