[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#15705: [PATCH 3/8] shr: Display content for video if no poster is av
From: |
Rüdiger Sonderfeld |
Subject: |
bug#15705: [PATCH 3/8] shr: Display content for video if no poster is available. |
Date: |
Fri, 25 Oct 2013 01:43:39 +0200 |
User-agent: |
KMail/4.11.2 (Linux/3.11.0-12-generic; KDE/4.11.2; x86_64; ; ) |
* lisp/net/shr.el (shr-tag-video): If poster is nil display a default
value instead.
Signed-off-by: Rüdiger Sonderfeld <ruediger@c-plusplus.de>
---
lisp/net/shr.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index b742172..39e0470 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1101,7 +1101,9 @@ (defun shr-tag-video (cont)
(let ((image (cdr (assq :poster cont)))
(url (cdr (assq :src cont)))
(start (point)))
- (shr-tag-img nil image)
+ (if image
+ (shr-tag-img nil image)
+ (shr-insert " [video] "))
(shr-urlify start (shr-expand-url url))))
(defun shr-tag-img (cont &optional url)
--
1.8.4.1
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- bug#15705: [PATCH 3/8] shr: Display content for video if no poster is available.,
Rüdiger Sonderfeld <=