Jak mogę zasymulować arbitralne kluczowe wydarzenie z Elisp?

Czy można symulować dowolne zdarzenie klucza z elisp? Wiem, w jaki sposób mogę znaleźć powiązanie dla danego klucza, a następnie wywołać to polecenie interaktywnie, ale co, jeśli to zdarzenie klucza nie jest powiązane z poleceniem?

Jako przykład , co jeśli chciałbym powiązać, C-`aby zachowywał się tak samo jak ESCklucz we wszystkich kontekstach ?

Możesz podać dowolne zdarzenia (naciśnięcia klawiszy, kliknięcia myszą itp.) Do pętli poleceń, umieszczając je na unread-command-events. Na przykład następujące polecenie spowoduje, że pętla poleceń wykona przerwanie przy następnym uruchomieniu:

(setq unread-command-events (listify-key-sequence "\C-g"))

Zauważ, że to tylko przekazuje zdarzenia do pętli poleceń, więc nie zrobi nic interesującego, jeśli zapętlasz swój własny kod.

Innym podejściem, o którym zdajesz się być świadomy, jest znalezienie funkcji, do której przypisany jest dany klucz, i wykonanie go samodzielnie:

(funcall (global-key-binding "\C-g"))

Spowoduje to natychmiastowe wykonanie polecenia. Uważaj jednak na to, że niektóre polecenia zachowują się inaczej w zależności od tego, czy są wywoływane interaktywnie, na przykład domyślne argumenty. Będziesz chciał to zrekompensować, używając call-interactively:

(call-interactively (global-key-binding "\C-g"))

Najprostszy sposób, jaki znam, to po prostu użyć execute-kbd-macro:

(defun foo () (interactive) (execute-kbd-macro (kbd "<escape>")))
(global-set-key (kbd "C-`") 'foo)

Na podstawie tej odpowiedzi można użyć globalnego zestawu kluczy w ten sposób

(global-set-key (kbd "C-`") (kbd "<escape>"))

Co będzie traktowane C-`jakoescape

To wydaje się mieć pewne problemy, jeśli druga kombinacja nie wykonuje funkcji. Więc jeśli escapejest używany tak Meta, to nie działa poprawnie. Ale wydaje się, że działa w przypadku poleceń powiązanych z funkcjami.

Po przeczytaniu sugestii z jch do użycia unread-command-events, byłem w stanie zhakować razem rozwiązanie, które zrobi niektóre z rzeczy, których szukam.

(defun my-simulate-key-event (event &optional N)
  "Simulate an arbitrary keypress event.

This function sets the `unread-command-events' variable in order to simulate a
series of key events given by EVENT. Can also For negative N, simulate the
specified key EVENT directly.  For positive N, removes the last N elements from
the list of key events in `this-command-keys' and then appends EVENT.  For N nil,
treat as N=1."
  (let ((prefix (listify-key-sequence (this-command-keys)))
         (key (listify-key-sequence event))
         (n (prefix-numeric-value N)))
     (if (< n 0)
         (setq prefix key)
       (nbutlast prefix n)
       (nconc prefix key))
       (setq unread-command-events prefix)))

Nadal jest wiele spraw do załatwienia. Mianowicie nie otrzymuję poprawnego wyniku, jeśli wywołam tę funkcję dwa razy z rzędu w ciągu jednego defun.

Dygresja:

Po zapoznaniu się z sugestią Filipa dotyczącą zastosowania key-translation-map, mogłem znaleźć, local-function-key-mapktóra jest również bardzo pomocna w osiągnięciu niektórych z moich szerszych celów.