From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 11 Dec 2014 18:14:37 +0000 (-0800)
Subject: use cl-loop and cl instead of just loop (which is deprecated)
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1e05f390d9f57274c8652e27a38a22cb4178c4a2;p=lib.git

use cl-loop and cl instead of just loop (which is deprecated)
---

diff --git a/emacs_el/configuration/mode-line-cleaner.el b/emacs_el/configuration/mode-line-cleaner.el
index bcd34c7..abc1570 100644
--- a/emacs_el/configuration/mode-line-cleaner.el
+++ b/emacs_el/configuration/mode-line-cleaner.el
@@ -26,7 +26,7 @@ want to use in the modeline *in lieu of* the original.")
  
 (defun clean-mode-line ()
   (interactive)
-  (loop for cleaner in mode-line-cleaner-alist
+  (cl-loop for cleaner in mode-line-cleaner-alist
         do (let* ((mode (car cleaner))
                  (mode-str (cdr cleaner))
                  (old-mode-str (cdr (assq mode minor-mode-alist))))