Re: advising jde-compile -- a better way?

[Daniel Pittman <daniel@rimspace.net>]

On 26 Oct 2004, Joe Casadonte wrote:
> 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)))

(require 'cl)
(defadvice jde-compile (around jde-compile-no-save-prompt act)
  "Supresses the save-buffer prompting." 
    (flet ((save-some-buffers (&rest)))
      ad-do-it))

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

Untested, but Common Lisp flet is a way of doing what you wrote
automatically.  There may even be a non-CL mechanism, named something
else, in Emacs somewhere.

          Daniel

-- 
Yet, I am the necessary angel of earth,
Since, in my sight, you see the earth again...
        -- Wallace Stevens