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

[Lars Ingebrigtsen]

branch: master
commit e00f882905db2ac6ffd1ae58b04fa335b38f489c
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 52e4389954..248faeb223 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))