[编程申请]：誰來破解一下ACET

taner

1. 
   
2.   [FONT=courier new]
   
3. 誰來破解一下這兩個函數？
   
4. (acet-error-init args)
   
5. 
   
6. Error handler.
   
7. 
   
8. Note:
   
9. This function should be paired with (acet-error-restore) below to encapsulate error handling for LISP functions or commands that may be aborted by the user.
   
10. 
    
11. Arguments
    
12. args A list containing up to three elements (described below).
    
13. 
    
14. Arguments are provided in a list to allow for future enhancements. The list can currently be nil or can contain up to three elements:
    
15. 
    
16. A list containing pairs of system variable names along with an initial value for each variable, in the form:
    
17. ("sysvar" value "sysvar" value ...)
    
18. The (acet-error-init) function will preserve the initial value of these variables (see (acet-error-restore) below) and then set the new values.
    
19. A flag value indicating whether UNDO should be used as part of the error handling operation. This value can be one of: nil Do not use undo.
    
20. 0 Enable Undo and place begin and end marks, but do not issue the UNDO command in the event of an error.
    
21. 1 Enable Undo and use the UNDO command in the event of an error.
    
22. 
    
23. A quoted function call that will be executed as part of the error handling operation. A nil argument indicates that no additional error handling is required.
    
24. Return Values
    
25. nil
    
26. 
    
27. Example
    
28. (acet-error-init '(("CMDECHO" 0)
    
29.                    1
    
30.                    (if ename (redraw ename 4)) ) )
    
31. 
    
32. 
    
33. --------------------------------------------------------------------------------
    
34. 
    
35. (acet-error-restore)
    
36. 
    
37. Reset error handling.
    
38. 
    
39. This function restores the values saved by the matching call to (acet-error-init). It should be called after all user input has been completed. This function ends with a (princ) call for a quiet finish.
    
40. 
    
41. Return Values
    
42. nil
    
43. 
    
44. Library: acetutil.fas
    
45. 
    
46.   [/FONT]
    

复制代码

Free-Lancer

用 vl-catch-all-apply 就没必要注意这些繁文缛节