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

[bojohan+news@dd.chalmers.se (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))