Simulazione delle operazioni del mouse con la tastiera

Esiste un modo, tramite alcuni comandi che possono essere invocati dalla tastiera, di far pensare ad Emacs che ho fatto clic in un determinato punto (in modo che faccia tutto ciò che avrebbe fatto se avessi fatto clic lì, ad esempio segui il collegamento o apri un menu )? O che ho spostato il mouse in corrispondenza del punto (in modo che la descrizione si apra)?

[Motivazione: alcune modalità decorano il buffer, trasformando del testo in collegamenti e così via. Potrei sapere come fare qualcosa con il mouse (ad es. Fare clic su di esso), ma non la scorciatoia / comando equivalente da richiamare. Ovviamente dovrei leggere la documentazione per la modalità e impararla, ma ho pensato che fosse una domanda interessante.]

Spesso, spostarsi in una posizione e premere un tasto avrà lo stesso effetto del clic in quella posizione. Non esiste un meccanismo integrato che garantisca questo, è solo che le modalità sono in genere scritte in quel modo.

È possibile generare eventi del mouse ( clic , doppio / triplo / ... clic , pulsante giù / su , trascinamento , movimento ). Tutti gli eventi del mouse hanno la forma in (TYPE POSITION . EXTRA-DATA)cui TYPE è un simbolo che codifica il pulsante del mouse, la natura dell'azione (clic, trascinamento, ecc.) E i modificatori. TYPE è mouse-movementper un evento di movimento. Chiama posn-at-pointper generare la POSIZIONE per la posizione del punto nel buffer corrente.

Ecco un codice di prova che simula un clic del mouse nella posizione del cursore quando si preme f11seguito da una cifra. I modificatori sono presi in considerazione.

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

La simulazione dell'hover sembra più difficile.