Letting hooks?

[Eric Abrahamsen <eric@ericabrahamsen.net>]

I'm trying to temporarily add a function to a hook within the space of
one function. I've tried a bunch of stuff and nothing's worked properly,
and I suspect I'm just doing the Wrong Thing. Everything I've tried has
been along the lines of:

--8<---------------cut here---------------start------------->8---
(defun my-function ()
  (let ((grommet-created-hook
	 (push my-hook-function
	       grommet-created-hook)))
    (create-grommet)))
--8<---------------cut here---------------end--------------->8---

I've tried it with append and copy-sequence, everything blows up in
different ways.

Is this simply the wrong approach, or have I just not tried the right
commands? All advice appreciated!

Eric


-- 
GNU Emacs 24.1.50.1 (i686-pc-linux-gnu, GTK+ Version 2.24.10)
 of 2012-06-06 on pellet