diff options
| author | Lars Magne Ingebrigtsen | 2016-01-04 23:03:16 +0100 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 2016-01-04 23:03:30 +0100 |
| commit | 9fb185aff7b1f36c30bd157ec446d9bad104d1ee (patch) | |
| tree | c61fd0c471a0213d9a63b1019033df4b07ce77ef | |
| parent | 6300655ec9286f3a259ee60536819a0056be4810 (diff) | |
| download | emacs-9fb185aff7b1f36c30bd157ec446d9bad104d1ee.tar.gz emacs-9fb185aff7b1f36c30bd157ec446d9bad104d1ee.zip | |
shr-tag-video bug fix
* shr.el (shr-tag-video): Protect against the `poster' being
empty.
| -rw-r--r-- | lisp/net/shr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 979b0caeea5..0703171a436 100644 --- 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'." | |||
| 1361 | (start (point))) | 1361 | (start (point))) |
| 1362 | (unless url | 1362 | (unless url |
| 1363 | (setq url (car (shr--extract-best-source dom)))) | 1363 | (setq url (car (shr--extract-best-source dom)))) |
| 1364 | (if image | 1364 | (if (> (length image) 0) |
| 1365 | (shr-tag-img nil image) | 1365 | (shr-tag-img nil image) |
| 1366 | (shr-insert " [video] ")) | 1366 | (shr-insert " [video] ")) |
| 1367 | (shr-urlify start (shr-expand-url url)))) | 1367 | (shr-urlify start (shr-expand-url url)))) |