如何用Elisp模拟Mac的触控板事件，比如 wheel-left ?

Emacs-general
1

通过describe-key发现wheel-left主要触发 mac-mwheel-scroll 这个函数，于是给它加Advice，得到触控板的 Event 大概长这样:

(wheel-left
 (#<window 138 on *eshell*> 80188
           (335 . 246)
           10013231 nil 80188
           (33 . 11)
           nil
           (5 . 4)
           (10 . 22))
 1
 (:direction-inverted-from-device-p
  t :delta-x 0.0 :delta-y 0.0 :delta-z 0.0
  :phase none :momentum-phase ended
  :swipe-tracking-from-scroll-events-enabled-p t))

于是模拟了如下的事件

(setq evt `(wheel-left
         ,(posn-at-point) 1
         (:direction-inverted-from-device-p
          t :delta-x 0.0 :delta-y 0.0 :delta-z 0.0 :phase none
          :momentum-phase ended :swipe-tracking-from-scroll-events-enabled-p t)))
(mac-mwheel-scroll evt)

然而并无作用，返回值一直是nil，不知道哪里出了问题？

不知道有没有更方便一点的生成 event 的方法？