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