[elpa] 02/04: [xpm int] Don't bother w/ rows outside form bb.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit 9da6e5f58037bd2417f8d83189f0ab461aab3a71
Author: Thien-Thi Nguyen <address@hidden>
Date:   Sun May 18 01:23:52 2014 +0200

    [xpm int] Don't bother w/ rows outside form bb.
    
    * packages/xpm/xpm.el (xpm-raster): ...here.
---
 packages/xpm/xpm.el |   11 ++++++-----
 1 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/packages/xpm/xpm.el b/packages/xpm/xpm.el
index 4053f6e..9ab50bb 100644
--- a/packages/xpm/xpm.el
+++ b/packages/xpm/xpm.el
@@ -330,13 +330,14 @@ see variable 
`xpm-raster-inhibit-continuity-optimization'."
                 nin (make-bool-vector len nil)
                 ext (make-bool-vector len t)))
         (loop
-         with (in-map-ok
+         with (ls
+               in-map-ok
                in-map)
-         for y below h
-         for unsorted across v
-         when unsorted
+         for y from (1- y-min) to y-max
+         when (setq ls (and (< -1 y)
+                            (> h y)
+                            (sort (aref v y) '>)))
          do (loop
-             with ls = (sort unsorted '>)
              with acc = (list (car ls))
              for maybe in (cdr ls)
              do (let* ((was (car acc))