Fix Bug#31022

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

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index dace6f79549a147ba4ce49c3203e4601a0f9731f..451e7f762f43e13150466acbb37b8a6c20c795c3 100644 (file)
--- 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))