diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4bad667aa50..5cac769f01b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-12-07 Lars Magne Ingebrigtsen + + * net/shr.el (shr-tag-img): Don't bug out on + data. + 2013-12-06 Michael Albinus * progmodes/compile.el (compilation-start): diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 5857517684a..4c256f8d716 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -1173,7 +1173,7 @@ The preference is a float determined from `shr-prefer-media-type'." (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"))