equivalent of make-local-variable for defun?

equivalent of make-local-variable for defun?

[jrwats]

I'm trying to fix a mode using comint for an inferior lisp that
apparently needs to overwrite  comint-send-region.  I'd rather it not
overwrite ALL buffers' (including my shell-mode buffer) comint-send-
region function.

Is there a way to define a function but local to the current buffer as
when you define a local variable in make-local-variable?

Re: equivalent of make-local-variable for defun?

[Paul R]

jrwats> Is there a way to define a function but local to the current
jrwats> buffer as when you define a local variable in
jrwats> make-local-variable?

I don't know very well how buffer-local variables work, but I don't
think you can locally bind an elisp function. A workaround can be to use
a local variable, then set it to a lambda expression, then call the
function with funcall.


-- 
  Paul

Re: equivalent of make-local-variable for defun?

[jrwats]

On Nov 3, 5:47 pm, Barry Margolin <bar...@alum.mit.edu> wrote:
> In article
> <1d3363bf-4c06-4424-832a-5abe06f56...@z6g2000pre.googlegroups.com>,
>
>  jrwats <jrw...@gmail.com> wrote:
> > I'm trying to fix a mode using comint for an inferior lisp that
> > apparently needs to overwrite  comint-send-region.  I'd rather it not
> > overwrite ALL buffers' (including my shell-mode buffer) comint-send-
> > region function.
>
> > Is there a way to define a function but local to the current buffer as
> > when you define a local variable in make-local-variable?
>
> You could define around-advice on the function that checks the mode, or
> looks at the value of a buffer-local variable.  If it's in a buffer that
> needs your fix, it runs the advice, otherwise it falls through to the
> regular function.

Thanks!  This will work.  It seems hackish, but it will work!

Re: equivalent of make-local-variable for defun?

[Kevin Rodgers]

jrwats wrote:
> I'm trying to fix a mode using comint for an inferior lisp that
> apparently needs to overwrite  comint-send-region.  I'd rather it not
> overwrite ALL buffers' (including my shell-mode buffer) comint-send-
> region function.
> 
> Is there a way to define a function but local to the current buffer as
> when you define a local variable in make-local-variable?

Not really, but you can get the same effect like this:

(defadvice comint-send-region (around inferior-lisp-mode activate)
   "In Inferior Lisp mode, call `inferior-lisp-send-region' instead."
   (if (eq major-mode 'inferior-lisp-mode)
       (apply 'inferior-lisp-send-region (ad-get-args 0))
     ad-do-it))

-- 
Kevin Rodgers
Denver, Colorado, USA