Perhaps add something like this to the *error* function
;;----- Display error message if applicable _---------------------------
(cond
((not msg)) ; no error, so do nothing
((member (strcase msg t) ; if cancel or quit
'("console break" "function cancelled" "quit / exit abort")
)
)
((princ (strcat "\nApplication Error: " (itoa (getvar "errno")) " :- " msg))
;;----- Display backtrace ------------------------------------------
(vl-bt)
)
)