加入PROG模式钩，除了特定的模式

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

当然，我自己的反射是问“是什么让Python的特殊？”。答案可能会让你用(derived-mode-p 'python-mode)测试更直接地处理问题的核心问题（例如，问题可能与缩进意义有关，因此也适用于Coffeescript和Haskell，也许你可以检查electric-indent-inhibit）。