做一个死循环，直到按“Esc”键跳出，接着执行以下程序，这部分代码怎么写？

tangxjcxv65

做一个死循环，直到按“Esc”键跳出，接着执行以下程序，怎么写？

tangxjcxv65

我已经找到方法了，因为Esc比较特殊，我用0来判断了

（while (/= 0 XXX)

.........

当×××＝0时退出

  )

秋枫

(defun dosomething1 () ...)

(defun dosomething2 () ...)

(defun dosomething3 () ...)

(vl-catch-all-apply '(lambda () (while T (dosomething1))) nil)

(vl-catch-all-apply '(lambda () (while T (dosomething2))) nil)

(vl-catch-all-apply '(lambda () (while T (dosomething3))) nil)