如何比較Emacs中的多個功能

Question

我想改變一個次要模式行爲取決於主要模式。 現在我寫的如下。

(defun foo (input) 
    (if (or 
    (eql major-mode 'foo-mode) 
    (eql major-mode 'foo1-mode) 
    (eql major-mode 'foo2-mode)) 
    (myfunc-one input) 
    (myfunc-two input))) 

我工作，但我不想寫類似的條件陳述3次。 我怎樣才能更有效地編寫它？

Answer 1

(defun foo (input) 
    (if (memql major-mode '(foo-mode foo1-mode foo2-mode)) 
     (myfunc-one input) 
     (myfunc-two input))) 

Answer 2

你一般不想直接測試major-mode。相反，您想使用(derived-mode-p 'foo1-mode 'foo2-mode 'foo3-mode)。