diff options
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/shr.el | 4 |
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." | |||
| 1100 | (let ((image (cdr (assq :poster cont))) | 1100 | (let ((image (cdr (assq :poster cont))) |
| 1101 | (url (cdr (assq :src cont))) | 1101 | (url (cdr (assq :src cont))) |
| 1102 | (start (point))) | 1102 | (start (point))) |
| 1103 | (shr-tag-img nil image) | 1103 | (if image |
| 1104 | (shr-tag-img nil image) | ||
| 1105 | (shr-insert " [video] ")) | ||
| 1104 | (shr-urlify start (shr-expand-url url)))) | 1106 | (shr-urlify start (shr-expand-url url)))) |
| 1105 | 1107 | ||
| 1106 | (defun shr-tag-img (cont &optional url) | 1108 | (defun shr-tag-img (cont &optional url) |