キーボードを使用したマウス操作のシミュレーション

キーボードで呼び出すことができるコマンドを使用して、Emacsが特定の場所でクリックしたと思うようにする方法はありますか（リンクをクリックしたり、メニューをポップアップしたりして、そこでクリックした場合と同じように動作します） ）？または、ポイントにマウスを置いた（ツールチップがポップアップした）

[動機：一部のモードはバッファを装飾し、一部のテキストをリンクに変換します。私はマウスで何かをする方法を知っているかもしれません（たとえば、それをクリックする）が、呼び出す同等のキーボードショートカット/コマンドは知りません。もちろん、モードのドキュメントを読んで学ぶべきですが、興味深い質問だと思いました。]

多くの場合、ある場所に移動してキーを押すと、その場所をクリックするのと同じ効果があります。これを保証する組み込みのメカニズムはありません。モードが通常そのように記述されているだけです。

マウスイベントを生成できます（クリック、ダブル/トリプル/…クリック、ボタンダウン/アップ、ドラッグ、モーション）。すべてのマウスイベントには、(TYPE POSITION . EXTRA-DATA)TYPEがマウスボタンをエンコードする記号、アクションの性質（クリック、ドラッグなど）、および修飾子の形式があります。TYPEはmouse-movementモーションイベント用です。呼び出しposn-at-pointて、現在のバッファー内のポイントの位置のPOSITIONを生成します。

次にf11、数字を押してカーソル位置でマウスクリックをシミュレートする概念実証コードを示します。修飾子が考慮されます。

(defun make-mouse-event-at-point (base-event)
  (let ((posn (posn-at-point))
        (prefix "")
        (basic-type (event-basic-type base-event))
        (modifiers (event-modifiers base-event)))
    (cond
     ((and (integerp basic-type) (>= basic-type ?0) (<= basic-type ?9))
      ;; click
      (let* ((mouse-type (intern (format "%smouse-%d" prefix (- basic-type ?0))))
             (click-count 1)
             (type (event-convert-list (append modifiers (list mouse-type)))))
        (list type posn click-count)))
     (t
      (error "Unsupported key for mouse event: %s" (event-basic-type base-event))))))
(defun simulate-mouse-event-at-point ()
  (interactive)
  (let ((event (make-mouse-event-at-point last-input-event)))
    (setq unread-command-events (cons event unread-command-events))))

(defvar simulate-mouse-event-map (make-sparse-keymap))
(global-set-key [f11] simulate-mouse-event-map)
(define-key simulate-mouse-event-map [t] 'simulate-mouse-event-at-point)

ホバーのシミュレーションはより困難に見えます。