From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 2 Jul 2021 08:01:46 +0000 (+0200)
Subject: Fix a problem of cus-start.el for remote default directories
X-Git-Tag: emacs-28.0.90~1984
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aaa32f39420826bdbca30a3bc6212c38c267cda6;p=emacs.git

Fix a problem of cus-start.el for remote default directories

* lisp/cus-start.el: Bind `default-directory' to "/" when calling
`shell-command-to-string' for a local value on DARWIN.
---

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index b7afef6516d..3c2625a8c31 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -285,6 +285,7 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of
 		      (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP")
 			  ;; See bug#7135.
 			  (let* (file-name-handler-alist
+                                 (default-directory "/")
 				 (tmp (ignore-errors
 				        (shell-command-to-string
 					 "getconf DARWIN_USER_TEMP_DIR"))))