[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 01/04: [xpm int] Compute bool-vector length exactly once.
From: |
Thien-Thi Nguyen |
Subject: |
[elpa] 01/04: [xpm int] Compute bool-vector length exactly once. |
Date: |
Sat, 17 May 2014 23:29:36 +0000 |
ttn pushed a commit to branch master
in repository elpa.
commit 406ec6517c6fc8d72462ee956856155426fd6a36
Author: Thien-Thi Nguyen <address@hidden>
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)