Wie kann ich ein beliebiges Schlüsselereignis von Elisp simulieren?

Ist es möglich, ein beliebiges Schlüsselereignis aus elisp heraus zu simulieren? Ich bin mir bewusst, wie ich die Bindung für einen bestimmten Schlüssel finden und diesen Befehl dann interaktiv aufrufen kann, aber was ist, wenn dieses Schlüsselereignis nicht an einen Befehl gebunden ist?

Als ein Beispiel , was passiert , wenn ich wollte , binden , C-`das gleiche wie die verhaltene ESCSchlüssel in allen Kontexten ?

Sie können beliebige Ereignisse (Tastenanschläge, Mausklicks usw.) in die Befehlsschleife einfügen, indem Sie sie dort platzieren unread-command-events. Das Folgende bewirkt beispielsweise, dass die Befehlsschleife beim nächsten Ausführen eine Unterbrechung ausführt:

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

Beachten Sie, dass dies nur Ereignisse an die Befehlsschleife weiterleitet. Wenn Sie also Ihren eigenen Code einschleifen, ist dies nicht von Interesse.

Ein anderer Ansatz, den Sie zu kennen scheinen, besteht darin, die Funktion, an die ein bestimmter Schlüssel gebunden ist, zu finden und selbst auszuführen:

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

Dadurch wird der Befehl sofort ausgeführt. Beachten Sie jedoch, dass einige Befehle ein unterschiedliches Verhalten aufweisen, je nachdem, ob sie interaktiv aufgerufen werden, z. B. Standardargumente. Sie möchten dies ausgleichen, indem Sie Folgendes verwenden call-interactively:

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

Der einfachste Weg, den ich kenne, ist einfach zu benutzen execute-kbd-macro:

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

Aus dieser Antwort können Sie den folgenden Global-Set-Schlüssel verwenden

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

Welches wird C-`als behandelnescape

Dies scheint jedoch einige Probleme zu haben, wenn die zweite Kombination keine Funktion ausführt. Wenn escapealso wie verwendet wird Meta, dann funktioniert es nicht richtig. Aber es scheint für Befehle zu funktionieren, die an Funktionen gebunden sind.

Nachdem ich den Vorschlag von jch zur Verwendung gelesen hatte , unread-command-eventswar ich in der Lage, eine Lösung zu hacken, die einige der Dinge erledigt, nach denen ich suche.

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

Es gibt noch eine Reihe von Knicken zu lösen. Ich erhalte nämlich nicht das richtige Ergebnis, wenn ich diese Funktion zweimal hintereinander innerhalb einer einzigen aufrufe defun.

Randnotiz:

Nachdem ich den Vorschlag von phils zur Verwendung durchgesehen hatte,key-translation-map konnte ich feststellen, dass local-function-key-mapdies auch sehr hilfreich ist, um einige meiner übergeordneten Ziele zu erreichen.