Visual LISP, AutoLISP and General Customization

[#1]

I am trying to figure out how to alter the close program and close drawing commands (the X method in the upper left corners). What I want to do is purge the drawing before closing without having to do a single purge command first then closing. I want to CLOSE X to purge then close the drawings.

Anyone have suggestions? I have modified the CLOSE commands withing the CUI files but this does not effect the X command.

[#2]

Redefine the Close command.

(command "_.undefine" "_.close")
(defun c:Close (/) (command "_.-purge" "_REGAPPS" "*" "_NO" "_.close") (princ))