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 b7afef6516d9fb601667667573592c18c2678395..3c2625a8c31cd32c3097461160ab773e60473eb6 100644 (file)
--- 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"))))