From e00f882905db2ac6ffd1ae58b04fa335b38f489c Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 23 Jul 2022 07:46:52 +0200 Subject: [PATCH] Don't bug out in src when there's no srcset * lisp/net/shr.el (shr--preferred-image): Don't bug out when there's no srcset. --- lisp/net/shr.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 52e4389954a..248faeb223c 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -1740,13 +1740,14 @@ BASE is the URL of the HTML being rendered." shr-cookie-policy))) (defun shr--preferred-image (dom) - (let* ((srcset (shr--parse-srcset (dom-attr dom 'srcset) - (and (dom-attr dom 'width) - (string-to-number - (dom-attr dom 'width))))) + (let* ((srcset (and (dom-attr dom 'srcset) + (shr--parse-srcset (dom-attr dom 'srcset) + (and (dom-attr dom 'width) + (string-to-number + (dom-attr dom 'width)))))) (frame-width (frame-pixel-width)) candidate) - (when (length> srcset 0) + (when srcset ;; Choose the smallest picture that's bigger than the current ;; frame. (setq candidate (caar srcset)) -- 2.39.2