Display content for video if no poster is available.

* net/shr.el (shr-tag-video): Display content for video if no
poster is available.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index cc18707c8ae..d4f57ee0bb1 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1100,7 +1100,9 @@ ones, in case fg and bg are nil."
   (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)