Fix Bug#31022

* lisp/cus-start.el (temporary-file-directory): Suppress file name
handlers when calling `shell-command-to-string'.  (Bug#31022)

1 files changed, 4 insertions, 3 deletions

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index dace6f79549..451e7f762f4 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -277,9 +277,10 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
                      ((eq system-type 'darwin)
                       (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP")
                           ;; See bug#7135.
-                          (let ((tmp (ignore-errors
-                                       (shell-command-to-string
-                                        "getconf DARWIN_USER_TEMP_DIR"))))
+                          (let* (file-name-handler-alist
+                                 (tmp (ignore-errors
+                                        (shell-command-to-string
+                                         "getconf DARWIN_USER_TEMP_DIR"))))
                             (and (stringp tmp)
                                  (setq tmp (replace-regexp-in-string
                                             "\n\\'" "" tmp))