Fix face of eldoc-in-minibuffer.

This commit is contained in:
Vincent Zhang 2018-06-14 02:51:07 +08:00
parent 0509ac47f4
commit f98597f06c

View file

@ -241,10 +241,9 @@ If STRICT-P, return nil if no project was found, otherwise return
(defun doom-modeline-eldoc (text) (defun doom-modeline-eldoc (text)
(concat (when (display-graphic-p) (concat (when (display-graphic-p)
(doom-modeline--make-xpm (doom-modeline--make-xpm 'doom-modeline-eldoc-bar
(face-background 'doom-modeline-eldoc-bar nil t) doom-modeline-height
doom-modeline-height doom-modeline-bar-width))
doom-modeline-bar-width))
text)) text))
;; Show eldoc in the mode-line with `eval-expression' ;; Show eldoc in the mode-line with `eval-expression'
@ -444,7 +443,9 @@ active."
(propertize (propertize
" " 'display " " 'display
(let ((data (make-list height (make-list width 1))) (let ((data (make-list height (make-list width 1)))
(color (or (when face (face-background face nil t)) "None"))) (color (or (when face
(face-background face nil t))
"None")))
(ignore-errors (ignore-errors
(create-image (create-image
(concat (concat