Re: master 6a6de68 1/3: Add new macro `with-existing-directory'

[Robert Pluim]

>>>>> On Wed,  1 Sep 2021 10:27:16 -0400 (EDT), larsi@gnus.org (Lars 
>>>>> Ingebrigtsen) said:
    Lars> +(defmacro with-existing-directory (&rest body)
    Lars> +  "Execute BODY with `default-directory' bound to an existing 
directory.
    Lars> +If `default-directory' is already an existing directory, it's not 
changed."
    Lars> +  (declare (indent 0) (debug t))
    Lars> +  `(let ((default-directory (seq-find (lambda (dir)
    Lars> +                                        (and dir
    Lars> +                                             (file-exists-p dir)))
    Lars> +                                      (list default-directory
    Lars> +                                            (expand-file-name "~/")
    Lars> +                                            (getenv "TMPDIR")
    Lars> +                                            "/tmp/")
    Lars> +                                      "/")))
    Lars> +     ,@body))

Hmm. 'temporary-file-directory'?

Robert
--