Subject: bug#15706: [PATCH 4/8] shr: Add support for <audio> tag.

From: Rüdiger Sonderfeld <[email-masked]>
Date: Fri, 25 Oct 2013 01:43:51 +0200

* lisp/net/shr.el (shr-tag-audio): New function.

Signed-off-by: Rüdiger Sonderfeld <[email-masked]>
---
 lisp/net/shr.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 39e0470..3ea2829 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1106,6 +1106,12 @@ (defun shr-tag-video (cont)
       (shr-insert " [video] "))
     (shr-urlify start (shr-expand-url url))))
 
+(defun shr-tag-audio (cont)
+  (let ((url (cdr (assq :src cont)))
+        (start (point)))
+    (shr-insert " [audio] ")
+    (shr-urlify start (shr-expand-url url))))
+
 (defun shr-tag-img (cont &optional url)
   (when (or url
 	    (and cont
-- 
1.8.4.1