Emacs：キーを2回タップする方法をバインドするには？

Question

私は、Emacs（23）を使用していると私は、関数にC-.キーの組み合わせを結合しています：

(global-set-key (kbd "C-.") 'myfunction) 

それはキーの迅速な「ダブルタップ」をバインドすることは可能ですか？たとえば、.をすばやく2回入力すると、関数myfunctionを呼び出したいとします。

Answer 1

何も組み込まれていませんが、このコードを使用できます。変数dc-single-click-cmdとdc-double-click-cmdを必要なコマンドにカスタマイズします。

注：これにより、イベントがシングルクリックかダブルクリックかを判断するのに少し時間がかかるのを待つ必要があります。

(defvar dc-single-click-cmd 'dc-example-single-click) 
(defvar dc-double-click-cmd 'dc-example-double-click) 
(defvar dc-click-timer nil 
    "Pending single-click event.") 
(defun dc-example-single-click() 
    (interactive) 
    (message "A single click just happened.")) 
(defun dc-example-double-click() 
    (interactive) 
    (message "Wait! I meant double click.")) 
(defun dc-click-cmd() 
    "Either kick off a single click, or a double click." 
    (interactive) 
    (if dc-click-timer 
     (progn 
     (cancel-timer dc-click-timer) 
     (setq dc-click-timer nil) 
     (call-interactively dc-double-click-cmd)) 
    (setq dc-click-timer (run-at-time (when double-click-time 
              (/ 1000.0 double-click-time)) 
             nil 
             'dc-call-single-click)))) 
(defun dc-call-single-click() 
    "spawn the single click" 
    (setq dc-click-timer nil) 
    (call-interactively dc-single-click-cmd)) 

Answer 2

（defunのmyfunction2（） （インタラクティブ） （）ない（EQ最後のコマンド「myfunction2（あれば） （挿入 ""） （このコマンドはnil setqの） （削除、後方-char 1） （コール対話的に 'MyFunctionを）））

（関数定義のMyFunctionを（） （インタラクティブ） （メッセージ "MyFunctionを"））

（グローバル・セットキー ""' myfunction2 ）

Answer 3

https://github.com/k-talo/double-type.elは、探しているのと同じ機能を提供します。

Answer 4

私はKeyChordが今日この正式な解決策だと信じています。

（免責事項：私は）まだ（自分自身をKeyChord使用していないが、多くの人がやるので、私はそれが少なくとも試してみる価値がある確信しています）