diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2018-04-03 09:51:01 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2018-04-03 09:51:01 +0200 |
| commit | 56794ac6c7fb1ca1dd1fd8dfb0ac40e20901f2c0 (patch) | |
| tree | aadfb1b4a3af1436a406601b2c14fc0fece09498 /lisp/cus-start.el | |
| parent | a231c33eabed7d2eb132b8cb45142c3012783f54 (diff) | |
| download | emacs-56794ac6c7fb1ca1dd1fd8dfb0ac40e20901f2c0.tar.gz | |
Fix Bug#31022
* lisp/cus-start.el (temporary-file-directory): Suppress file name
handlers when calling `shell-command-to-string'. (Bug#31022)
Diffstat (limited to 'lisp/cus-start.el')
| -rw-r--r-- | lisp/cus-start.el | 7 |
1 files changed, 4 insertions, 3 deletions
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)) |