Seems fine on my end, so I've attached the updated patch.

Thanks, best,
Paul

On Wed, Sep 25, 2024 at 10:05 AM Arash Esbati <arash@gnu.org> wrote:
>
> Paul Nelson <ultrono@gmail.com> writes:
>
> >> Thanks.  I have one question: Is it possible to set the LEXICAL argument
> >> of `eval' to t?
> >
> > If I understand correctly, your suggestion is to use something like
> > the following?
>
> Yes, plus the one addition below.
>
> > (defcustom preview-auto-reveal
> >       '(eval . ((apply #'preview-arrived-via
> >                        (mapcar (lambda (cmd)
> >                                  (if (and (listp cmd) (eq (car cmd) 'key-binding))
> >                                      (eval cmd)
>                                        (eval cmd t)
> >                                    cmd))
> >                                preview-auto-reveal-commands))
> >                 t))
> > ...)
> >
> > I assume this will have no effect, but would be happy to test it out
> > for a couple days.
>
> Great, thanks, looking forward to your feedback.
>
> Best, Arash