X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/2a6deb8cdea4516d78639d9d50f247f2981e95d1..ca75b19e7c0093093b43b49ef8f0d3e6ab0dc15d:/packages/xpm/xpm-ops.el

diff --git a/packages/xpm/xpm-ops.el b/packages/xpm/xpm-ops.el
index 67989ca6b..a2bc96a1f 100644
--- a/packages/xpm/xpm-ops.el
+++ b/packages/xpm/xpm-ops.el
@@ -20,6 +20,8 @@
 ;;; Code:
 
 (require 'queue)
+(require 'cl-lib)
+(require 'xpm)
 
 (defun xpm-flood-fill (px x y)
   (xpm--w/gg (cpp origin y-mult) (xpm--gate)
@@ -38,21 +40,21 @@
                           (beg x)
                           (end x))
                      (when (oldp)
-                       (loop while (oldp)
-                             do (backward-char cpp)
-                             do (decf beg)
-                             finally do (incf beg))
+                       (cl-loop while (oldp)
+                                do (backward-char cpp)
+                                do (cl-decf beg)
+                                finally do (cl-incf beg))
                        (goto-char p)
-                       (loop while (oldp)
-                             do (forward-char cpp)
-                             do (incf end)
-                             finally do (decf end))
+                       (cl-loop while (oldp)
+                                do (forward-char cpp)
+                                do (cl-incf end)
+                                finally do (cl-decf end))
                        (cons beg end)))))
         (setq bye (let ((p (pos x y)))
                     (buffer-substring-no-properties
                      p (+ p cpp))))
         (queue-enqueue q (cons x y))
-        (loop until (queue-empty q)
+        (cl-loop until (queue-empty q)
               do (let* ((coord (queue-dequeue q))
                         (ext (extent coord)))
                    (when ext