use cl-do instead of do

magit · Feb 23, 2013 · 3300976 · 3300976
1 parent 9d206bc
commit 3300976
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/magit-key-mode.el b/magit-key-mode.el
@@ -269,7 +269,7 @@ The user is prompted for the key."
     (goto-char (point-min))
     (let* ((exec (get-text-property (point) 'key-group-executor))
            (exec-alist (if exec `((,exec . ,(point))) nil)))
-      (do nil ((eobp) (nreverse exec-alist))
+      (cl-do nil ((eobp) (nreverse exec-alist))
         (when (not (eq exec (get-text-property (point) 'key-group-executor)))
           (setq exec (get-text-property (point) 'key-group-executor))
           (when exec (push (cons exec (point)) exec-alist)))