Make sure text is supported

This commit is contained in:
Matthew L. Fidler 2016-02-09 10:11:24 -06:00
parent c7a0a4320d
commit 72736b5a92

View file

@ -139,6 +139,7 @@ the icon."
(defun mode-icons-supported-p (icon-spec) (defun mode-icons-supported-p (icon-spec)
"Determine if ICON-SPEC is suppored on your system." "Determine if ICON-SPEC is suppored on your system."
(or (or
(and (or (eq (nth 2 icon-spec) nil) (eq (nth 1 icon-spec) nil)) t)
(and (eq (nth 2 icon-spec) 'octicons) mode-icons-octicons-font (not (eq system-type 'windows-nt)) (and (eq (nth 2 icon-spec) 'octicons) mode-icons-octicons-font (not (eq system-type 'windows-nt))
(stringp (nth 1 icon-spec))) (stringp (nth 1 icon-spec)))
(and (eq (nth 2 icon-spec) 'jpg) (image-type-available-p 'jpeg)) (and (eq (nth 2 icon-spec) 'jpg) (image-type-available-p 'jpeg))