Re: How to create a higher order function?

[Emanuel Berg]

Or `cl-gensym' and `funcall' as in ...

(require 'cl-lib)

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

Looks like something from Pascal J. B. -
maybe he wrote it ...

-- 
underground experts united
https://dataswamp.org/~incal