Re: ~`symbol-function' to get code as list even when byte-compiled?

[Stefan Monnier]

> Perhaps this is a better (safer) way to have it in but
> still out of action. I never contemplated the Boolean

Why have it out of action?  The Right Thing to do is to pass it along to fun:

   (defun add-one-shot-hook (hook fun)
     (let ((name (cl-gensym)))
       (setf (symbol-function name)
             (lambda (&rest args)
               (remove-hook hook name)
               (apply fun args)))
       (add-hook hook name)))


-- Stefan