GNU bug report logs - #15705
[PATCH 3/8] shr: Display content for video if no poster is available.

Previous Next

Package: emacs;

Reported by: Rüdiger Sonderfeld <ruediger <at> c-plusplus.de>

Date: Thu, 24 Oct 2013 23:45:01 UTC

Severity: normal

Tags: fixed, patch

Merged with 15702, 15703, 15704, 15706, 15707, 15708, 15709, 15710

Fixed in version 24.4

Done: Lars Magne Ingebrigtsen <larsi <at> gnus.org>

Bug is archived. No further changes may be made.

Full log

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Rüdiger Sonderfeld <ruediger <at> c-plusplus.de>
To: bug-gnu-emacs <at> gnu.org
Cc: Lars Magne Ingebrigtsen <larsi <at> gnus.org>
Subject: [PATCH 3/8] shr: Display content for video if no poster is available.
Date: Fri, 25 Oct 2013 01:43:39 +0200

* lisp/net/shr.el (shr-tag-video): If poster is nil display a default
  value instead.

Signed-off-by: Rüdiger Sonderfeld <ruediger <at> 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
This bug report was last modified 11 years and 231 days ago.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.