[elpa] 01/04: [xpm int] Compute bool-vector length exactly once.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit 406ec6517c6fc8d72462ee956856155426fd6a36
Author: Thien-Thi Nguyen <t...@gnu.org>
Date:   Sun May 18 01:09:57 2014 +0200

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

diff --git a/packages/xpm/xpm.el b/packages/xpm/xpm.el
index c08ea33..4053f6e 100644
--- a/packages/xpm/xpm.el
+++ b/packages/xpm/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)