procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't bug out in src when there's no srcset

Browse source 
* lisp/net/shr.el (shr--preferred-image): Don't bug out when
there's no srcset.
This commit is contained in:
Lars Ingebrigtsen 2022-07-23 07:46:52 +02:00
parent 2ebede7d75
commit e00f882905
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/net/shr.el
View file

@ -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))