diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/shr.el | 11 |
1 files 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)) |