どうすればEmacsのCtrl-Gを傍受するのですか

Question

Emacs用のelispスクリプトを用意しています。ユーザーがヒットした場合には、いくつかのクリーンアップを行います。Ctrl + G私はすべてのイベントをキャッチするために 'read-event'を使用しますが、これはCtrl + Gをキャッチしません。 Ctrl + Gがヒットした場合、実行を停止するだけです。 XEmacsので

、あなたは次のコマンドイベントを呼び出すとき、それはあなたのユーザーがGはCtrl + に当たったときなど、すべてのイベントを提供します。 Emacsには同等のものがなければなりません。

Answer 1

あなたはC-gが押されたかどうかを判断するためにwith-local-quitを使用することができます。

編集ソリューションを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))))) 

注：でローカル・終了リターン最後の式の値、またはnilC-gが押された場合、その一切C-gが押されていないときに何か非nilを返すようにしてください。私は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をしたいです。