advising jde-compile -- a better way?

[Joe Casadonte]

jde-compile prompts me to save buffers before compiling, a practice
that I find personally annoying.  I've come up with the following, but
it seems ugly:

(defadvice jde-compile (around jde-compile-no-save-prompt act)
  "Supresses the save-buffer prompting."
        (fset 'save-some-buffers-old-fn-def (symbol-function 
'save-some-buffers))
        (fset 'save-some-buffers 'ignore)
        ad-do-it
        (fset 'save-some-buffers (symbol-function 
'save-some-buffers-old-fn-def)))

Is there a better or more elegant way to accomplish the same thing?

--
Regards,

joe
Joe Casadonte
jcasadonte@northbound-train.com

------------------------------------------------------------------------------
         Llama Fresh Farms => http://www.northbound-train.com
   Gay Media Resource List => http://www.northbound-train.com/gaymedia.html
            Perl for Win32 => http://www.northbound-train.com/perlwin32.html
               Emacs Stuff => http://www.northbound-train.com/emacs.html
          Music CD Trading => http://www.northbound-train.com/cdr.html
------------------------------------------------------------------------------
                       Live Free, that's the message!
------------------------------------------------------------------------------