X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fprocess.el;h=749f99d2120f61588bed75af18e5bf44bdfc5c58;hb=d4b236b78c9e33a6b6a26ac428c36191013d97c6;hp=0f3f64c39f9ed0dc91dedfb4c1ab858ee117e128;hpb=77dcef404dc78635f6ffa8f71a803d2bc7cc8921;p=chise%2Fxemacs-chise.git

diff --git a/lisp/process.el b/lisp/process.el
index 0f3f64c..749f99d 100644
--- a/lisp/process.el
+++ b/lisp/process.el
@@ -337,7 +337,7 @@ Fourth arg SERVICE is name of the service desired, or an integer
 process as a string"
   ;; by "William G. Dubuque" <wgd@zurich.ai.mit.edu>
   (with-output-to-string
-    (call-process shell-file-name nil t nil "-c" command)))
+    (call-process shell-file-name nil t nil shell-command-switch command)))
 
 (defalias 'shell-command-to-string 'exec-to-string)