procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix Bug#31022

Browse source 
* lisp/cus-start.el (temporary-file-directory): Suppress file name
handlers when calling `shell-command-to-string'.  (Bug#31022)
This commit is contained in:
Michael Albinus 2018-04-03 09:51:01 +02:00
parent a231c33eab
commit 56794ac6c7
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/cus-start.el
View file

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