shr-tag-video bug fix

* shr.el (shr-tag-video): Protect against the `poster' being empty.
2016-01-04 23:03:16 +01:00
parent 6300655ec9
commit 9fb185aff7
1 changed files with 1 additions and 1 deletions
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1361,7 +1361,7 @@ The preference is a float determined from `shr-prefer-media-type'."
        (start (point)))
    (unless url
      (setq url (car (shr--extract-best-source dom))))
-    (if image
+    (if (> (length image) 0)
        (shr-tag-img nil image)
      (shr-insert " [video] "))
    (shr-urlify start (shr-expand-url url))))