From e330b64699b4560bb270d00a89d3c09d91210057 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 7 Dec 2013 02:44:15 +0100 Subject: [PATCH] * net/shr.el (shr-tag-img): Don't bug out on data. --- lisp/ChangeLog | 5 +++++ lisp/net/shr.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4bad667aa5..5cac769f01 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 5857517684..4c256f8d71 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")) -- 2.20.1