gistfile1.el

(defmacro ecukes-recurse-catch (symbols &rest body)
  "Catch on entry to SYMBOLS during execution of BODY."
  (letrec ((value (make-symbol "thrown-value"))
           (function (lambda () (throw value nil)))
           (fnsym (make-symbol "advice")) (unwind))
    `(let ((,fnsym ,function))
       ,@(mapcar (lambda (symbol)
                   (prog1 `(advice-add ',symbol :override ,fnsym)
                     (push `(remove-advice ',symbol ,fnsym) unwind)))
                 (if (listp symbols) symbols (list symbols)))
       (unwind-protect (catch ,value ,@body) ,unwind))))