mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Display content for video if no poster is available.

Browse source 
* net/shr.el (shr-tag-video): Display content for video if no
poster is available.
This commit is contained in:
Rüdiger Sonderfeld 2013-12-01 16:40:12 +01:00 • committed by Lars Magne Ingebrigtsen
parent 10240949ca
commit 177948a5b2
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,5 +1,12 @@
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>

4
lisp/net/shr.el
View file

@ -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)