* lisp/simple.el (shell-command-to-string):

Call `shell-command' in order to respect file name handlers.

diff --git a/lisp/simple.el b/lisp/simple.el
index e51bc132a6b93510a422b62008b246751ac14695..44f738f07e69196cfff270fd0c38ddb3ed11bbaf 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3844,7 +3844,7 @@ interactively, this is t."
   (with-output-to-string
     (with-current-buffer
       standard-output
-      (process-file shell-file-name nil t nil shell-command-switch command))))
+      (shell-command command t))))
 
 (defun process-file (program &optional infile buffer display &rest args)
   "Process files synchronously in a separate process.