github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-23 19:19:50 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix: function definition is void: font-info.

Browse source
This commit is contained in:
Vincent Zhang 2018-12-22 14:09:02 +08:00
parent 65ea32f20d
commit 3f5feb3c7f
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
doom-modeline.el
View file

@ -83,7 +83,9 @@
;; ;;
(defvar doom-modeline-height (let ((font (face-font 'mode-line))) (defvar doom-modeline-height (let ((font (face-font 'mode-line)))
(if font (* 2 (aref (font-info font) 2)) 25)) (if (and font (fboundp 'font-info))
(* 2 (aref (font-info font) 2))
25))
"How tall the mode-line should be (only respected in GUI Emacs).") "How tall the mode-line should be (only respected in GUI Emacs).")
(defvar doom-modeline-bar-width 3 (defvar doom-modeline-bar-width 3

2
test/test-helper.el
View file

@ -35,8 +35,6 @@
(set-text-properties 0 (length txt) nil txt) (set-text-properties 0 (length txt) nil txt)
txt) txt)
(defvar doom-modeline-height 26)
(require 'doom-modeline (expand-file-name "doom-modeline.el")) (require 'doom-modeline (expand-file-name "doom-modeline.el"))
;;; test-helper.el ends here ;;; test-helper.el ends here