如何在Elisp里执行一个命令同时包含执行命令上定义的advice？

Emacs-general
1

我创建一个一个自定义命令：

(defun my/scroll-other-frame ()
  "Scroll other frame.
This is helpful for multiple monitor screens."
  (interactive)
  (other-frame +1)
  (if (derived-mode-p 'eaf-mode)
      (eaf-proxy-scroll_up_page)
    (call-interactively 'scroll-up-command))
  (other-frame -1))

但是这里的 eaf-proxy-scroll_up_page 其实是在 scroll-up-command 命令上的一个 advice. 如果我不添加 if 直接 (call-interactively 'scroll-up-command) 就没效果 （在EAF打开的buffer里面）。 我也试过其他的函数：

  • call-interactively
  • funcall-interactively
  • command-execute
  • execute-extended-command

都不行。 请教大神该用什么办法？