emacs - 需要一个 Elisp 函数来推回输入

Question

我写了一个新版本的“zap-to-char”。它只是突出显示区域而不是杀死它。我认为这会更灵活，因为我们可以选择杀死，或复制，或者只是去这个字符。

这是片段:

(defun new-zap-to-char (arg char)
  (interactive "p\ncZap to char: ")
  (push-mark)
  (setq mark-active t)
  (defun iter-zap ()
    (if (< arg 0)
      (search-forward (char-to-string char) nil nil -1)
      (search-forward (char-to-string char) nil nil 1))
    (if (char-equal char (setq c (read-char)))
        (iter-zap)
        (>>>>here is the "push-back-to-input" function"<<<<))
 (iter-zap))

如您所见，当您键入除“char”之外的输入时，我需要一个函数将“read-char”的结果推回输入。但我不知道 Emacs 是否提供了一个。所以我需要你的帮助。

我希望我已经说清楚了。

Answer 1

你可以试试unread-command-events .

例如:

(push ?a unread-command-events)