emacs - 如何比较 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).