如何攔截Emacs中的Ctrl-G

Question

我有一個Emacs的elisp腳本，我想在用戶點擊時進行一些清理工作Ctrl + G。我使用'閱讀事件'來捕捉所有事件，但這並不趕上Ctrl + G。當Ctrl + G被擊中時，它只是停止執行。

在XEmacs中，當你調用下一個命令事件，當用戶點擊按Ctrl +摹它會給你所有的活動，包括。 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))))) 

注：與本地-quit返回最後一個表達式的值，或nil如果C-g被按下，所以一定要在沒有按下C-g返回的東西非空。我發現有關quitting的elisp文檔很有用。一個相關的領域是nonlocal exits，特別是unwind-protect，它不僅僅適用於退出。

Answer 2

condition-case和unwind-protect在這裏很有幫助。 condition-case讓你「捕獲」，「例外」，它的退出是一個：

(condition-case 
    (while t) ; never terminates 
    (quit (message "C-g was pressed"))) 

您還可以趕上其他錯誤，像「錯誤」。

unwind-protect就像最後一樣;它將執行「身體形式」，然後「放鬆形式」。然而，「開卷形式」都不管「體形式」是否成功運行執行：

(unwind-protect 
    (while t) 
    (message "Done with infinite loop")) 

你在你的情況要unwind-protect。