[elpa] 02/02: [xpm int] Whitespace munging; nfc.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit ec10d4d5addd967f59df482cc0d5445e1fdbc7f2
Author: Thien-Thi Nguyen <address@hidden>
Date:   Fri Jun 13 13:44:00 2014 +0200

    [xpm int] Whitespace munging; nfc.
    
    Somehow the keyboard macro used to do ‘s/loop/cl-loop/g’
    a moment ago introduced extra newlines in some places...
---
 packages/xpm/xpm.el |    3 ---
 1 files changed, 0 insertions(+), 3 deletions(-)

diff --git a/packages/xpm/xpm.el b/packages/xpm/xpm.el
index 2efd1e5..0e2c52d 100644
--- a/packages/xpm/xpm.el
+++ b/packages/xpm/xpm.el
@@ -343,7 +343,6 @@ see variable `xpm-raster-inhibit-continuity-optimization'."
                 nin (make-bool-vector len nil)
                 ext (make-bool-vector len t)))
         (cl-loop
-
          with (ls
                in-map-ok
                in-map)
@@ -352,7 +351,6 @@ see variable `xpm-raster-inhibit-continuity-optimization'."
                             (> h y)
                             (sort (aref v y) '>)))
          do (cl-loop
-
              with acc = (list (car ls))
              for maybe in (cdr ls)
              do (let* ((was (car acc))
@@ -378,7 +376,6 @@ see variable `xpm-raster-inhibit-continuity-optimization'."
                    (setq in-map (make-bool-vector now nil)))))
              finally do
              (cl-loop
-
               with (x rangep beg nx end len nb in)
               for gap from 0
               while acc