Use force-mode-line-update

This commit is contained in:
Matthew L. Fidler 2016-01-22 11:32:49 -06:00
parent 220b53964f
commit 9e4d51fea0

View file

@ -186,7 +186,8 @@ ICON-SPEC should be a specification from `mode-icons'."
(push (copy-sequence minor) mode-icons-set-minor-mode-icon-alist)) (push (copy-sequence minor) mode-icons-set-minor-mode-icon-alist))
(setq mode-name (replace-regexp-in-string "^ " "" mode-name)) (setq mode-name (replace-regexp-in-string "^ " "" mode-name))
(setcdr minor (list (concat (or (and mode-icons-separate-images-with-spaces " ") "") (setcdr minor (list (concat (or (and mode-icons-separate-images-with-spaces " ") "")
(mode-icons-propertize-mode mode-name icon-spec)))))))))) (mode-icons-propertize-mode mode-name icon-spec)))))))))
(force-mode-line-update t))
;;;###autoload ;;;###autoload
(define-minor-mode mode-icons-mode (define-minor-mode mode-icons-mode