diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-07-23 07:46:52 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-07-23 07:46:52 +0200 |
| commit | e00f882905db2ac6ffd1ae58b04fa335b38f489c (patch) | |
| tree | bbda87829340dcb09304b95602351ab2aed8374b /lisp | |
| parent | 2ebede7d7534ef22816d973e2a42613cecfd5b53 (diff) | |
| download | emacs-e00f882905db2ac6ffd1ae58b04fa335b38f489c.tar.gz emacs-e00f882905db2ac6ffd1ae58b04fa335b38f489c.tar.bz2 emacs-e00f882905db2ac6ffd1ae58b04fa335b38f489c.zip | |
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.
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)) |