diff options
| author | Michael Albinus | 2021-07-02 10:01:46 +0200 |
|---|---|---|
| committer | Michael Albinus | 2021-07-02 10:01:46 +0200 |
| commit | aaa32f39420826bdbca30a3bc6212c38c267cda6 (patch) | |
| tree | b910c8ece8edcf94e0bd61c20238b48e769add60 | |
| parent | 1b88404acc4b6399b617dac2b14f1eaa78135670 (diff) | |
| download | emacs-aaa32f39420826bdbca30a3bc6212c38c267cda6.tar.gz emacs-aaa32f39420826bdbca30a3bc6212c38c267cda6.zip | |
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.
| -rw-r--r-- | lisp/cus-start.el | 1 |
1 files changed, 1 insertions, 0 deletions
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 | |||
| 285 | (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") | 285 | (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") |
| 286 | ;; See bug#7135. | 286 | ;; See bug#7135. |
| 287 | (let* (file-name-handler-alist | 287 | (let* (file-name-handler-alist |
| 288 | (default-directory "/") | ||
| 288 | (tmp (ignore-errors | 289 | (tmp (ignore-errors |
| 289 | (shell-command-to-string | 290 | (shell-command-to-string |
| 290 | "getconf DARWIN_USER_TEMP_DIR")))) | 291 | "getconf DARWIN_USER_TEMP_DIR")))) |