emacs - 如何在Emacs中拦截Ctrl-G

Question

我有一个Emacs的elisp脚本，如果用户按下Ctrl + G，我想对其进行清理。我使用'read-event'来捕获所有事件，但这不能捕获Ctrl + G。当按Ctrl + G时，它将停止执行。

在XEmacs中，当您调用next-command-event时，它将为您提供所有事件，包括用户按下Ctrl + G时的事件。 Emacs中必须有一些等效项。

Answer 1

您可以使用with-local-quit来确定是否按下了C-g:

根据efunneko的建议，解决了吞咽停止的方法。

(defun my-c-g-test ()
  "test catching control-g"
  (interactive)
  (let ((inhibit-quit t))
    (unless (with-local-quit
              (y-or-n-p "arg you gonna type C-g?")
              t)
      (progn
        (message "you hit C-g")
        (setq quit-flag nil)))))

注意:with-local-quit返回最后一个表达式的值，如果按下 nil，则返回 C-g，因此请确保在未按下 C-g时返回非零的值。我发现 quitting上的elisp文档很有用。一个相关的区域是 nonlocal exits，特别是 unwind-protect ，它不仅适用于退出。