Subject: Re: bug#65459: completing-read INITIAL-VALUE unaware of COLLECTION and REQUIRE-MATCH

From: Stefan Monnier <[email-masked]>
Date: Wed, 23 Aug 2023 22:30:36 -0400

> (defun my-completing-read (prompt collection start)
>   (minibuffer-with-setup-hook
>       (:append
>        (lambda ()
>          (setq-local actual-minibuffer-default-add-function
>                      minibuffer-default-add-function)
>          (setq-local minibuffer-default-add-function
>                      '(lambda () (setq minibuffer-default-add-done nil)
>                         (funcall actual-minibuffer-default-add-function)))

Why use ' on `lambda`?
BTW, rather than the above two `setq-local`s, I think you can write:

    (add-function :before (local 'minibuffer-default-add-function)
                  (lambda () (setq minibuffer-default-add-done nil)))

-- Stefan