how to temporarily remove a function from a hook?

how to temporarily remove a function from a hook?

[Kevin Rodgers]

What is the right way to temporarily remove a function from a hook?


My best guess is:

(let ((foo-hook (progn (remove-hook 'bar 'foo-hook) foo-hook)))
   ...)

-- 
Kevin Rodgers
Denver, Colorado, USA

Re: how to temporarily remove a function from a hook?

[Pascal J. Bourguignon]

Kevin Rodgers <kevin.d.rodgers@gmail.com> writes:

> What is the right way to temporarily remove a function from a hook?
>
>
> My best guess is:
>
> (let ((foo-hook (progn (remove-hook 'bar 'foo-hook) foo-hook)))
>   ...)


This won't work, because remove-hook actually modifies the outside
variable foo-hook.


Write simply:

(let ((foo-hook (remove 'bar foo-hook)))
   ...)


-- 
__Pascal Bourguignon__

Re: how to temporarily remove a function from a hook?

[Barry Margolin]

In article <87ab3elgpl.fsf@galatea.local>,
 pjb@informatimago.com (Pascal J. Bourguignon) wrote:

> Kevin Rodgers <kevin.d.rodgers@gmail.com> writes:
> 
> > What is the right way to temporarily remove a function from a hook?
> >
> >
> > My best guess is:
> >
> > (let ((foo-hook (progn (remove-hook 'bar 'foo-hook) foo-hook)))
> >   ...)
> 
> 
> This won't work, because remove-hook actually modifies the outside
> variable foo-hook.
> 
> 
> Write simply:
> 
> (let ((foo-hook (remove 'bar foo-hook)))
>    ...)

Or:

(let ((foo-hook foo-hook))
  (remove-hook 'bar 'foo-hook)
  ...)

This doesn't violate the abstraction of remove-hook.

-- 
Barry Margolin, barmar@alum.mit.edu
Arlington, MA
*** PLEASE post questions in newsgroups, not directly to me ***
*** PLEASE don't copy me on replies, I'll read them in the group ***

Re: how to temporarily remove a function from a hook?

[Johan Bockgård]

Barry Margolin <barmar@alum.mit.edu> writes:

> Or:
>
> (let ((foo-hook foo-hook))
>   (remove-hook 'bar 'foo-hook)
>   ...)
>
> This doesn't violate the abstraction of remove-hook.

(add-hook 'foo-hook 'global)
(add-hook 'foo-hook 'local nil t)

(list (default-value 'foo-hook)
      foo-hook)
  =>
    ((global) (local t))

(let ((foo-hook foo-hook))
  (remove-hook 'foo-hook 'global))

(list (default-value 'foo-hook)
      foo-hook)
  =>
    (nil (local t))