[PATCH] (shr-urlify): show title attribute as well as URL, if provided. (shr-tag-a): pass title to shr-urlify.

["Adam Sjøgren" <asjo@koldfront.dk>]

Try to put a patch where my mouth is.

---
 lisp/shr.el |   18 ++++++++++--------
 1 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/lisp/shr.el b/lisp/shr.el
index 69973fb..e8522a7 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -506,13 +506,14 @@ START, and END."
 
 (autoload 'widget-convert-button "wid-edit")
 
-(defun shr-urlify (start url)
-  (widget-convert-button
-   'url-link start (point)
-   :help-echo url
-   :keymap shr-map
-   url)
-  (put-text-property start (point) 'shr-url url))
+(defun shr-urlify (start url &optional title)
+  (let ((help-text (if title (format "%s (%s)" title url) url)))
+    (widget-convert-button
+     'url-link start (point)
+     :help-echo help-text
+     :keymap shr-map
+     url)
+    (put-text-property start (point) 'shr-url url)))
 
 (defun shr-encode-url (url)
   "Encode URL."
@@ -631,10 +632,11 @@ text will be inserted at start."
 
 (defun shr-tag-a (cont)
   (let ((url (cdr (assq :href cont)))
+        (title (cdr (assq :title cont)))
 	(start (point))
 	shr-start)
     (shr-generic cont)
-    (shr-urlify (or shr-start start) url)))
+    (shr-urlify (or shr-start start) url title)))
 
 (defun shr-tag-object (cont)
   (let ((start (point))
-- 
1.7.2.3