From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 28 Sep 2022 11:27:05 +0000 (+0200)
Subject: Simplify eww--rescale-images code
X-Git-Tag: emacs-29.0.90~1856^2~169
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eac4e34a2c0fd3b7a7e2c1205f452dc65db3fd9d;p=emacs.git

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 624958915ad..414de931c4a 100644
--- 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."