我从其他人那里抄的配置:
(global-set-key (kbd "s-=")
                (lambda ()
                  (interactive)
                  (let ((old-face-attribute (face-attribute 'default :height)))
                    (set-face-attribute 'default nil :height (+ old-face-attribute 10)))))

(global-set-key (kbd "s--")
                (lambda ()
                  (interactive)
                  (let ((old-face-attribute (face-attribute 'default :height)))
                    (set-face-attribute 'default nil :height (- old-face-attribute 10)))))

【 在 easior 的大作中提到: 】
: 似乎配置里有这两个函数，只是忘了快捷键
: 另外，这肯定没有自适应的字体配置好用
:
--
FROM 125.39.236.*