+(require 'cl-lib)
; clean-mode-line from http://www.masteringemacs.org/articles/2012/09/10/hiding-replacing-modeline-strings/
(require 'cl)
(defvar mode-line-cleaner-alist
(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))))