changeset 16316:50be5f6cb5e6

(shell-command-to-string): Make the buffer current since output goes in current buffer. Use shell-command-switch.
author Richard M. Stallman <rms@gnu.org>
date Tue, 24 Sep 1996 23:54:08 +0000
parents cca1c6324cab
children 763b3b143ed6
files lisp/simple.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Tue Sep 24 22:50:24 1996 +0000
+++ b/lisp/simple.el	Tue Sep 24 23:54:08 1996 +0000
@@ -945,7 +945,9 @@
 (defun shell-command-to-string (command)
   "Execute shell command COMMAND and return its output as a string."
   (with-output-to-string
-    (call-process shell-file-name nil t nil "-c" command)))
+    (with-current-buffer
+      standard-output
+      (call-process shell-file-name nil t nil shell-command-switch command))))
 
 (defconst universal-argument-map
   (let ((map (make-sparse-keymap)))