Mercurial > hg > xemacs-beta
diff lisp/process.el @ 1189:23eaac87b4b0
[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.
| author | daiki |
|---|---|
| date | Sun, 05 Jan 2003 18:38:37 +0000 |
| parents | eaedf30d9d76 |
| children | 35aac3cef6af |
line wrap: on
line diff
--- 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)