Глядя на ваш предыдущий вопрос , мне кажется, что вы должны иметь возможность использовать ту же идею и просто отключить использование курсива на гранях шрифта (включите все остальные настройки из этого другого вопроса, если вы хотите отключить жирный шрифт и подчеркивание):
(mapc
(lambda (face)
(set-face-attribute face nil :slant 'normal))
(face-list))