Stop byte-compiling modeline format functions

Otherwise there will be a bunch of `Unused lexical var` warnings if
the file is not byte-compiled beforehand.
This commit is contained in:
Pengji Zhang 2018-10-17 11:42:44 -04:00
parent 88610aad3b
commit 1a2226b242

View file

@ -286,10 +286,7 @@ active.")
(concat "Modeline:\n" (concat "Modeline:\n"
(format " %s\n %s" (format " %s\n %s"
(prin1-to-string lhs) (prin1-to-string lhs)
(prin1-to-string rhs)))) (prin1-to-string rhs))))))
(unless (bound-and-true-p byte-compile-current-file)
(let (byte-compile-warnings)
(byte-compile sym)))))
(defun doom-modeline (key) (defun doom-modeline (key)
"Return a mode-line configuration associated with KEY (a symbol). "Return a mode-line configuration associated with KEY (a symbol).