From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 3 Apr 2018 07:51:01 +0000 (+0200)
Subject: Fix Bug#31022
X-Git-Tag: emacs-26.1-rc1~16
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=56794ac;p=emacs.git

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 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))