At 11:56 PM 7/5/00 +0100, Phillip Lord wrote:
>
>
>>>>>> "Paul" == Paul Kinnucan <[EMAIL PROTECTED]> writes:
>
> Paul> As I never tire of pointing out, you must use customize to
> Paul> custome the JDE.
>
> Paul
>
> May I suggest the following solution to this problem. Stick
>this at the beginning of jde.el
>
>(defvar jde-disable-setq-advice nil)
>
>(defmacro jde-setq (symbol value)
> (let ((jde-disable-setq-advice t))
> `(setq ,symbol ,value)))
>
>(defadvice setq (before jde-test-for-custom activate)
> (if (and (string-match "jde-" (symbol-name (ad-get-arg 0)))
> (not jde-disable-setq-advice))
> (error "Warning. Setting jde variables without using custom is
liable to turn Paul Kinnucan nasty")))
>
>
> and then do a search and replace for every occurrence of
>"setq" within JDE, with jde-setq.
>
Wow. This is really brilliant. You are one devious dude, Phil. You should
not put such evil thoughts in my head. Some day I might just be irritable
enough to do it.
Regards,
Paul
