lisp - 为什么以 "do-"开头的函数名在 emacs 中高亮显示？

Question

我正在使用 zenburn.el color-scheme in emacs 23. do-开头的函数名高亮显示，如下图--

我该如何解决？有什么想法吗？

Answer 1

我没有在 Emacs 24.3(当前开发版本)中观察到这一点。导致此突出显示的代码在 lisp-mode.el 中被注释掉了:

   ;; This is too general -- rms.
   ;; A user complained that he has functions whose names start with `do'
   ;; and that they get the wrong color.
   ;; ;; CL `with-' and `do-' constructs
   ;;("(\\(\\(do-\\|with-\\)\\(\\s_\\|\\w\\)*\\)" 1 font-lock-keyword-face)

那么，你需要做的是:

(dolist (s (apropos-internal "lisp.*-font-lock" #'boundp))
  (set s (cl-remove-if (lambda (l)
                         (let ((re (car l)))
                           (and (stringp re)
                                (string-match re "do-something"))))
                       (symbol-value s))))

或者只是编辑 lisp-mode.el，注释掉适当的正则表达式，然后重建。