我有以下在我的。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:

(set-face-attribute 'default nil :font "Monaco-16" )

从Emacs Wiki全局更改默认字体，它说你可以使用以下任何一种:

(set-face-attribute 'default nil :font FONT )

(set-frame-font FONT nil t)

其中FONT是“Monaco-16”之类的东西，例如:

(set-face-attribute 'default nil :font "Monaco-16" )

在wiki上的第一个建议中有一个额外的右括号，这导致了启动时的错误。我终于注意到这个额外的右括号，随后我在维基上更正了这个建议。这两个建议都对我有用。

我使用hydra包通过按f2 + + + +/f2 - - - -连续控制字体增减，这意味着按f2一次，然后使用+/-来控制，并恢复默认字体大小f2 0。因为我有键盘，所以我也绑定键盘到字体设置。

(defhydra hydra-zoom (global-map "<f2>")
  "zoom"
  ("<kp-add>" text-scale-increase "in")
  ("+" text-scale-increase "in")
  ("-" text-scale-decrease "out")
  ("<kp-subtract>" text-scale-decrease "out")
  ("0" (text-scale-set 0) "reset")
  ("<kp-0>" (text-scale-set 0) "reset"))

而现代编辑器的鼠标控制功能由以下键绑定支持，按下控制键+鼠标滚轮可增加/减少字体。

(global-set-key (kbd "<C-wheel-up>") 'text-scale-increase)
(global-set-key (kbd "<C-wheel-down>") 'text-scale-decrease)

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

;; 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)))))

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

(set-face-attribute 'default nil :height 100)

这个值的单位是1/10pt，所以100会给你10pt，以此类推。

Firefox和其他程序允许您使用C-+和C——来增加和减少字体大小。我设置了我的.emacs，这样我就可以通过添加以下几行代码来拥有同样的能力:

(global-set-key [C-kp-add] 'text-scale-increase)

(global-set-key [C-kp-subtract] 'text-scale-decrease)