[求助]：如何实现在执行命令过程中按下“ESC”键时执行相应的代码？

fish710605

如何实现在执行命令过程中按下“ESC”键时执行相应的代码？
===================================================================================
我做的程序中取消了所有的自动捕捉，程序正确执行时最后恢复命令前的自动捕捉设置，但执行过程中按下“ESC”时不能自动恢复命令前的自动捕捉！请高手支招，感激不尽！！！
===================================================================================

啵浪鼓

在论坛里搜索一下有出错处理的贴子：
(defun error(s)
  (if (and (/= s "error")
    (/= s "function cancelled")
    (/= s "quit / exit abort")
    )
    (princ (strcat "\nError:" s))
  )
  (if olderr (setq *error* olderr)); 恢復原系統設置
  (if oldcmd (setvar "cmdecho" oldcmd))
  (princ)
)

fish710605

谢谢二楼的大哥！我试试啦~~~~~

xshrimp

具体如何使用,能不能举个简单的例子。