0 Members and 1 Guest are viewing this topic.
(defun catch-error (catch:Protected catch:OnError / catch:err) (setq catch:err (vl-catch-all-apply catch:Protected) ) (if (and (vl-catch-all-error-p catch:err) catch:OnError ) (Apply catch:OnError (list (vl-catch-all-error-message catch:err)) ) catch:err ) )