[Emacs-diffs] trunk r115403: * net/shr.el (shr-tag-img): Don't bug out on <img src=""> data.

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 115403
revision-id: address@hidden
parent: address@hidden
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Sat 2013-12-07 02:44:15 +0100
message:
  * net/shr.el (shr-tag-img): Don't bug out on <img src=""> data.
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-06 15:34:06 +0000
+++ b/lisp/ChangeLog    2013-12-07 01:44:15 +0000
@@ -1,3 +1,8 @@
+2013-12-07  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * net/shr.el (shr-tag-img): Don't bug out on <img src="">
+       data.
+
 2013-12-06  Michael Albinus  <address@hidden>
 
        * progmodes/compile.el (compilation-start):

=== modified file 'lisp/net/shr.el'
--- a/lisp/net/shr.el   2013-12-01 22:33:13 +0000
+++ b/lisp/net/shr.el   2013-12-07 01:44:15 +0000
@@ -1173,7 +1173,7 @@
 (defun shr-tag-img (cont &optional url)
   (when (or url
            (and cont
-                (cdr (assq :src cont))))
+                (> (length (cdr (assq :src cont))) 0)))
     (when (and (> (current-column) 0)
               (not (eq shr-state 'image)))
       (insert "\n"))