Don't set mode-line if format doesn't exist

This commit is contained in:
Henrik Lissner 2018-07-10 21:48:52 +02:00
parent 0cd32b5f1d
commit ba4d72713a
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -209,12 +209,13 @@
(defun set-modeline! (name &optional default)
(let ((modeline (cdr (assq name doom-mode-line-alist))))
(if default
(setq-default mode-line-format-left `("" ,@(car modeline))
mode-line-format-right `("" ,@(cadr modeline)))
(setq mode-line-format-left `("" ,@(car modeline))
mode-line-format-right `("" ,@(cadr modeline))))
(force-mode-line-update)))
(when modeline
(if default
(setq-default mode-line-format-left `("" ,@(car modeline))
mode-line-format-right `("" ,@(cadr modeline)))
(setq mode-line-format-left `("" ,@(car modeline))
mode-line-format-right `("" ,@(cadr modeline))))
(force-mode-line-update))))
;;