Emacs——使用计时器运行——如果计时器嗡嗡响，请输入默认选项

我正在寻找一个例子，请为以下选择场景设置一个

运行计时器

——例如，

（defvar git window options timer 2-seconds）

——如果在2秒内没有进行选择，则自动选择选项

？n

。[功能类似于Grub或rEFIt。]

（让*(
（git窗口选项（只读字符专用））
（目标窗口（获取缓冲区窗口git status buffer）））
（续）
（（eq git窗口选项？d）
（使用当前缓冲区（获取缓冲区git状态缓冲区）
（删除窗口目标窗口）））
（（eq git窗口选项？k）
（使用当前缓冲区（获取缓冲区git状态缓冲区）
（删除窗口目标窗口）
（kill buffer（get buffer git status buffer）））
（（eq git窗口选项？n）
（信息“完成！”）
（t（信息“您已退出子功能”））

如中所示的

读取字符独占

的

秒

选项

...
(git-window-options (or (read-char-exclusive nil nil git-window-options-timer) ?n))
...

我们应该做到这一点。请与

read char exclusive

的文档协商，非常感谢您--非常感谢！：）

（defvar git window options timer 2）

如果可选参数SECONDS为非nil，则它应该是一个数字，指定等待输入的最大秒数。如果当时没有输入，则返回nil。秒可以是浮点值。