Commit 177948a5 authored by Rüdiger Sonderfeld's avatar Rüdiger Sonderfeld Committed by Lars Magne Ingebrigtsen
Browse files

Display content for video if no poster is available.

* net/shr.el (shr-tag-video): Display content for video if no
poster is available.
parent 10240949
2013-12-01 Rüdiger Sonderfeld <ruediger@c-plusplus.de>
* net/shr.el (shr-tag-video): Display content for video if no
poster is available.
* net/eww.el (eww-text-input-types): : New const.
(eww-process-text-input): Treat input types in
`eww-text-input-types' as text.
* net/shr.el (shr-tag-table): Fix comment typo.
2013-12-01 Lars Magne Ingebrigtsen <larsi@gnus.org>
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment