(vl-catch-all-apply 'command (list pause))

[mdhutchinson]

I have the following loop to run until the user is finished with the command. An <Enter> key works as I want.

(while (= (getvar "cmdactive") 1)	
   (command pause)
)
... continue with more code

... however, quite often the user hit <esc> key instead.

Can't I trap for this - with something like the following?

(while (= (getvar "cmdactive") 1)	
   (vl-catch-all-error-p (vl-catch-all-apply 'command (list pause)))
)
... continue with more code

Your thoughts?

[hmsilva · Accepted solution]

Try

(vl-catch-all-error-p (vl-catch-all-apply 'vl-cmdf (list pause)))

Hope this helps,
Henrique

[mdhutchinson]

Yep... that works.

(vl-catch-all-error-p (vl-catch-all-apply 'vl-cmdf (list pause)))

so does this... 

(vl-catch-all-error-p (vl-catch-all-apply (function (lambda (x)(command pause))) (list nill)))

Your's is better.

Thanks.

[hmsilva]

---

@mdhutchinson wrote:

Yep... that works.

(vl-catch-all-error-p (vl-catch-all-apply 'vl-cmdf (list pause)))

so does this... 

(vl-catch-all-error-p (vl-catch-all-apply (function (lambda (x)(command pause))) (list nill)))

Your's is better.

Thanks.

---

You're welcome, mdhutchinson
Glad I could help

Henrique