[elpa] externals/xpm 6f7785b 05/37: [xpm int] Compute bool-vector length exactly once.

[Stefan Monnier]

branch: externals/xpm
commit 6f7785b723b9a9cb04a880481e8c534d65ab1610
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>

    [xpm int] Compute bool-vector length exactly once.
    
    * packages/xpm/xpm.el (xpm-raster): ...here.
---
 xpm.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/xpm.el b/xpm.el
index c08ea33..4053f6e 100644
--- a/xpm.el
+++ b/xpm.el
@@ -325,9 +325,10 @@ see variable `xpm-raster-inhibit-continuity-optimization'."
                        when (aref bv i)
                        return yes
                        finally return no)))
-        (setq int (make-bool-vector (span x-min x-max) nil)
-              nin (make-bool-vector (span x-min x-max) nil)
-              ext (make-bool-vector (span x-min x-max) t))
+        (let ((len (span x-min x-max)))
+          (setq int (make-bool-vector len nil)
+                nin (make-bool-vector len nil)
+                ext (make-bool-vector len t)))
         (loop
          with (in-map-ok
                in-map)