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