[Emacs-diffs] trunk r115332: Display content for video if no poster is available.

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 115332
revision-id: address@hidden
parent: address@hidden
author: Rüdiger Sonderfeld <address@hidden>
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Sun 2013-12-01 16:40:12 +0100
message:
  Display content for video if no poster is available.
  * net/shr.el (shr-tag-video): Display content for video if no
  poster is available.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/shr.el                shr.el-20101002102929-yfzewk55rsg0mn93-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-12-01 15:35:59 +0000
+++ b/lisp/ChangeLog    2013-12-01 15:40:12 +0000
@@ -1,5 +1,12 @@
 2013-12-01  Rüdiger Sonderfeld  <address@hidden>
 
+       * 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  <address@hidden>

=== modified file 'lisp/net/shr.el'
--- a/lisp/net/shr.el   2013-12-01 15:35:59 +0000
+++ b/lisp/net/shr.el   2013-12-01 15:40:12 +0000
@@ -1100,7 +1100,9 @@
   (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)