[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>]

Make the mouse over pop up text of links show the title as well as the URL,
if present.

Signed-off-by: Adam Sjøgren <asjo@koldfront.dk>
---

Let me try again, this time with the email comment in the right place (I hope),
and skipping the extra variable that was just too much indentation change for
very little clarity.

Please disregard my previous attempt: <1291499077-1619-1-git-send-email-asjo@koldfront.dk>


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

diff --git a/lisp/shr.el b/lisp/shr.el
index 69973fb..5d24479 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -506,10 +506,10 @@ START, and END."
 
 (autoload 'widget-convert-button "wid-edit")
 
-(defun shr-urlify (start url)
+(defun shr-urlify (start url &optional title)
   (widget-convert-button
    'url-link start (point)
-   :help-echo url
+   :help-echo (if title (format "%s (%s)" title url) url)
    :keymap shr-map
    url)
   (put-text-property start (point) 'shr-url url))
@@ -631,10 +631,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