emacs - 在 prog-mode 中添加一个钩子(Hook)，除了特定模式

Question

我有一个功能

(defun a--before-test-save-hook()
  "Test of before save hook"
  (message "foobar"))

我想在 prog-mode 中运行它除了 python-mode ,
但我现在不知道
我只是 add-hook在 prog-mode包括 python-mode

(add-hook 'prog-mode (lambda ()
                       (add-hook 'before-save-hook 'a-test-before-save-hook t t)))

我试过了

(defun a-test-before-save-hook()
  "Test of before save hook"
  (unless (eq major-mode 'python-mode)
    (message "foobar")))

但我想要更好的尝试，任何解决方案都将不胜感激。

Answer 1

不确定它是否更好，但你可以这样做:

(add-hook 'prog-mode-hook
          (lambda ()
            (unless (derived-mode-p 'python-mode)
              (add-hook 'before-save-hook
                        #'a-test-before-save-hook t t))))

当然，我自己的 react 是问“是什么让 Python 如此特别？”。答案可能会让您替换 (derived-mode-p 'python-mode)用更直接的问题进行测试(例如，问题可能与缩进意义有关，因此也适用于 Coffeescript 和 Haskell，也许您可​​以检查 electric-indent-inhibit)。