Use `temporary-file-directory' in `with-existing-directory'

* lisp/subr.el (with-existing-directory): Use
`temporary-file-directory' over TMPDIR.

diff --git a/lisp/subr.el b/lisp/subr.el
index 2d2794cfd1f16536c3dcf1189dd02c603e711c69..fd1ceb95f53f078efd7a0fda283bb19a05a127c6 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -4636,6 +4636,7 @@ If `default-directory' is already an existing directory, it's not changed."
                                              (file-exists-p dir)))
                                       (list default-directory
                                             (expand-file-name "~/")
+                                            temporary-file-directory
                                             (getenv "TMPDIR")
                                             "/tmp/")
                                       "/")))