我有以下在我的。emacs:

(defun fontify-frame (frame)
  (set-frame-parameter frame 'font "Monospace-11"))

;; Fontify current frame
(fontify-frame nil)
;; Fontify any future frames
(push 'fontify-frame after-make-frame-functions) 

你可以用你选择的任何字体来代替“Monospace-11”。可用选项集高度依赖于系统。使用M-x set-default-font并查看制表符补全会给您一些启发。在我的系统上，在启用了Emacs 23和抗锯齿的情况下，可以根据名称选择系统字体，例如Monospace、Sans Serif等。

在AquaMacs CMD +和CMD -中调整当前缓冲区的字体大小。

按Shift和第一个鼠标按钮。您可以通过以下方式更改字体大小:此网站有更多详细信息。

在NTEmacs 23.1中，选项菜单有一个“设置默认字体…”选项。

如果你喜欢控制台emacs (emacs -nw)，现代vterm实现(如gnome-terminal)往往有更好的字体支持。另外，如果您习惯了这一点，就可以使用tmux，这样即使没有X，也可以在远程服务器上使用完整的环境。

这里有一个交互调整字体高度的选项，一次一点:

;; font sizes
(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)))))

当您想要调整所有缓冲区中的文本大小时，这是可取的。我不喜欢使用文本比例增加和文本比例减少的解决方案，因为排水沟中的行号之后会被切断。