阻止 Emacs font-lock 在 Lisp 模式下减小符号的字体大小答案

【问题标题】：Stop Emacs font-lock from reducing the font size of symbols in Lisp modes阻止 Emacs font-lock 在 Lisp 模式下减小符号的字体大小
【发布时间】：2014-09-19 19:21:59
【问题描述】：

当 font-lock 为我的 Lisp 缓冲区着色时（至少在 clojure-mode 和 emacs-list-mode 中，所以我假设所有 Lisp 模式也会受到影响），我的符号的字体大小正在减小。在这种情况下，我认为一张图片值得值一千字：

如您所见，这会导致缩进看起来错误，因为符号 arena-ended-games-limit 和 game-status 以比缓冲区中其他文本更小的字体显示。

有谁知道这是在哪里配置的，以及如何关闭它？

我在 Google 上搜索并阅读了许多 Emacs Lisp 文件都无济于事，但由于我真的不知道我在寻找什么，我可能忽略了一个明显的答案。

如果有问题，这里是我的init.el 的 ELPA 包序言：

(require 'package)
(add-to-list 'package-archives
             '("melpa" . "http://melpa.milkbox.net/packages/"))
(add-to-list 'package-archives
             '("marmalade" . "http://marmalade-repo.org/packages/") t)

(package-initialize)

(when (not package-archive-contents)
  (package-refresh-contents))

;; packages
(defvar my-packages '(starter-kit
                      starter-kit-lisp
                      starter-kit-bindings
                      auto-complete
                      rainbow-delimiters
                      clojure-mode
                      cider
                      magit)
  "A list of packages to ensure are installed at launch.")

(dolist (p my-packages)
  (when (not (package-installed-p p))
    (package-install p)))

我相当确定 starter-kit / starter-kit-lisp 中没有任何东西这样做，因为我已经仔细阅读了源代码，但从来没有人知道。

【问题讨论】：

如果您输入M-x describe-face 并点击RET，它将显示用于点下方文本的面部。您可以使用它来比较用于符号和其他文本的面。我怀疑其中一张脸有字体大小设置。
反过来，这些面孔可能会设置为您使用的任何颜色主题。在您按照@legoscia 的建议describe-face 之后，您可以在主题设置中查找违规行。

标签： emacs clojure font-lock

【解决方案1】：

感谢legoscia's comment，我已经能够找出负责的人脸是font-lock-function-name-face，它将字体系列设置为Verdana，高度设置为0.9。弄清楚这一点后，我使用自定义实用程序删除面部和身高变化，从而将以下内容添加到我的init.el：

(custom-set-faces
 '(font-lock-function-name-face ((t (:foreground "LightSkyBlue" :weight bold)))))

现在一切都很好了！

【讨论】：