Если вы найдете решение для этого, пиво на мне. Лучшее, что я смог придумать, это поместить куда-то следующее в мой .emacs и запустить функцию после загрузки режима, который делает это (org-mode делает то же самое).
(defun fix-fonts ()
(interactive)
(mapc
(lambda (face)
(set-face-attribute face nil
;; :family (if (string= system-type "darwin")
;; "Menlo"
;; "Inconsolata")
:width 'normal
:height 1.0
:weight 'normal
:underline nil
:slant 'normal))
(remove 'default (face-list))))
Я больше не занимаюсь семейными делами, потому что у меня не было времени, чтобы найти хороший способ программно сделать это правильно, и это, кажется, не имеет значения, но ваш пробег может отличаться. Кроме того, я не устанавливаю ничего для шрифта «по умолчанию», потому что некоторые другие значения являются относительными и нуждаются в этой фиксированной контрольной точке.