[elpa] externals/xpm ee7e88d 06/37: [xpm int] Don't bother w/ rows outside form bb.

[Stefan Monnier]

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

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

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