Simplify eww--rescale-images code

* lisp/net/eww.el (eww--rescale-images): Simplify code.

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 624958915ad72ceb7421e1fb33601ec7fc128a33..414de931c4a75e7e0c50c257cd584e94c191ce66 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -1189,18 +1189,17 @@ the like."
 (defun eww--rescale-images ()
   (let ((scaling (if text-scale-mode
                      (+ 1 (* text-scale-mode-amount 0.1))
-                   1))
-        match)
+                   1)))
     (save-excursion
       (goto-char (point-min))
-      (while (setq match (text-property-search-forward 'display))
+      (while-let ((match (text-property-search-forward
+                          'display nil (lambda (_ value) (imagep value)))))
         (let ((image (prop-match-value match)))
-          (when (imagep image)
-            (unless (image-property image :original-scale)
-              (setf (image-property image :original-scale)
-                    (or (image-property image :scale) 1)))
-            (setf (image-property image :scale)
-                  (* (image-property image :original-scale) scaling))))))))
+          (unless (image-property image :original-scale)
+            (setf (image-property image :original-scale)
+                  (or (image-property image :scale) 1)))
+          (setf (image-property image :scale)
+                (* (image-property image :original-scale) scaling)))))))
 
 (defun eww--url-at-point ()
   "`thing-at-point' provider function."