# HG changeset patch
# User daiki
# Date 1041791917 0
# Node ID 23eaac87b4b08ad31ca8311af3d796a5c45d31ca
# Parent  11ff4edb6bb73dbd4451c669ec079e0d16129bdd
[xemacs-hg @ 2003-01-05 18:38:36 by daiki]
2002-12-17  Daiki Ueno  <daiki@xemacs.org>

	* process.el (shell-command-to-string): Synch with GNU Emacs 21.

diff -r 11ff4edb6bb7 -r 23eaac87b4b0 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Jan 05 10:54:04 2003 +0000
+++ b/lisp/ChangeLog	Sun Jan 05 18:38:37 2003 +0000
@@ -7,6 +7,10 @@
 	* wid-edit.el: Synch trivia to GNU Emacs 21.3.50.  Make docstrings
 	from comments, fix typos & whitespace, add some comments and fixmes.
 
+2002-12-17  Daiki Ueno  <daiki@xemacs.org>
+
+	* process.el (shell-command-to-string): Synch with GNU Emacs 21.
+
 2002-12-15  Ben Wing  <ben@xemacs.org>
 
 	* ChangeLog: Combine all ChangeLog files.
diff -r 11ff4edb6bb7 -r 23eaac87b4b0 lisp/process.el
--- a/lisp/process.el	Sun Jan 05 10:54:04 2003 +0000
+++ b/lisp/process.el	Sun Jan 05 18:38:37 2003 +0000
@@ -512,7 +512,8 @@
 (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 shell-command-switch command)))
+    (with-current-buffer standard-output
+      (call-process shell-file-name nil t nil shell-command-switch command))))
 
 (defalias 'exec-to-string 'shell-command-to-string)