adjust
[emacs.git] / elisp / local / ganneff.el
index 40df55a..9bd1f66 100644 (file)
@@ -902,6 +902,19 @@ buffer is not visiting a file."
   (rainbow-mode +1)
   (setq mode-name "EL"))
 
+;;;###autoload
+(defun clean-mode-line ()
+  (interactive)
+  (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))))
+             (when old-mode-str
+                 (setcar old-mode-str mode-str))
+               ;; major mode
+             (when (eq mode major-mode)
+               (setq mode-name mode-str)))))
+
 (provide 'ganneff)
 
 ;(setq org-icalendar-verify-function 'org-mycal-export-limit)