[Emacs-diffs] emacs-26 56794ac: Fix Bug#31022

[Michael Albinus]

branch: emacs-26
commit 56794ac6c7fb1ca1dd1fd8dfb0ac40e20901f2c0
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Fix Bug#31022
    
    * lisp/cus-start.el (temporary-file-directory): Suppress file name
    handlers when calling `shell-command-to-string'.  (Bug#31022)
---
 lisp/cus-start.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index dace6f7..451e7f7 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))