emacs - 如何在 Emacs 的 lisp-mode 中突出显示所有函数的名称？

Question

如何在 Emacs 的 lisp-mode 中突出显示所有函数的名称？我要他们加粗。

换句话说，所有单词 from(到 first space。不关心异常，例如(a . b)

就像 GitHub 一样：

Answer 1

用这个：

(defface font-lock-func-face 
    '((nil (:foreground "#7F0055" :weight bold))
      (t (:bold t :italic t)))
  "Font Lock mode face used for function calls."
  :group 'font-lock-highlighting-faces)

(font-lock-add-keywords 
 'emacs-lisp-mode
 '(("(\\s-*\\(\\_<\\(?:\\sw\\|\\s_\\)+\\)\\_>"
    1 'font-lock-func-face)))

一件有趣的事情：这与绑定搞砸了let，就像 Github 一样。但这就是你所要求的，对吧:)？

Answer 2

下面的代码突出显示了已知 Emacs-Lisp 函数的名称。

请注意，即使给定函数名称的某些出现不代表该函数，它也会这样做。例如，名称可能用作变量名。在实践中不是一个大问题，但很高兴知道。

;; `setq' is a variable here, but it is highlighted anyway.
(let ((setq  (foobar)))...)

要在 Emacs-Lisp 模式下自动打开突出显示，请执行以下操作：

(font-lock-add-keywords 'emacs-lisp-mode
                        '((my-fl . 'font-lock-constant-face)) ; Or whatever face you want.                            'APPEND)

(defun my-fl (_limit)
  (let ((opoint  (point))
        (found   nil))
    (with-syntax-table emacs-lisp-mode-syntax-table
      (while (not found)
        (cond ((condition-case ()
                   (save-excursion
                     (skip-chars-forward "'")
                     (setq opoint  (point))
                     (let ((obj  (read (current-buffer))))
                       (and (symbolp obj)  (fboundp obj)
                            (progn (set-match-data (list opoint (point))) t))))
                 (error nil))
               (forward-sexp 1)
               (setq opoint  (point)
                     found   t))
              (t
               (if (looking-at "\\(\\sw\\|\\s_\\)")
                   (forward-sexp 1)
                 (forward-char 1)))))
      found)))

注意：如果你只想看到这个高亮的效果，那么首先在 Emacs-Lisp 模式缓冲区中执行此操作，以摆脱其他 Emacs-Lisp 字体锁定高亮：

M-: (setq font-lock-keywords  ()) RET

更新 - -

我为此创建了一个次要模式命令和库：

• 代码：hl-defined.el
• Description

它可以让您突出显示已定义的 Emacs-Lisp 符号：函数和变量、仅函数或仅变量。或者，您可以仅突出显示未知未定义的符号。