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 bcd34c74c25c81fccf0f9118a8714ddd31bbfdd0..abc1570bddd4b3709be6e3af375d082b80cd3dd0 100644 (file)
--- 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))))