mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-08 07:20:28 -08:00
Code Issues Projects Releases Wiki Activity

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
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) ((eq system-type 'darwin)
(or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP")
;; See bug#7135. ;; See bug#7135.
(let ((tmp (ignore-errors (let* (file-name-handler-alist
(shell-command-to-string (tmp (ignore-errors
"getconf DARWIN_USER_TEMP_DIR")))) (shell-command-to-string
"getconf DARWIN_USER_TEMP_DIR"))))
(and (stringp tmp) (and (stringp tmp)
(setq tmp (replace-regexp-in-string (setq tmp (replace-regexp-in-string
"\n\\'" "" tmp)) "\n\\'" "" tmp))