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