Mercurial > hg > xemacs-beta

comparison lisp/process.el @ 392:1f50e6fe4f3f r21-2-11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-11
author cvs
date Mon, 13 Aug 2007 11:10:50 +0200
parents 8626e4521993
children 74fd4e045ea6
comparison
equal deleted inserted replaced
391:e50d8e68d7a5 392:1f50e6fe4f3f
335 (defun exec-to-string (command) 335 (defun exec-to-string (command)
336 "Execute COMMAND as an external process and return the output of that 336 "Execute COMMAND as an external process and return the output of that
337 process as a string" 337 process as a string"
338 ;; by "William G. Dubuque" <wgd@zurich.ai.mit.edu> 338 ;; by "William G. Dubuque" <wgd@zurich.ai.mit.edu>
339 (with-output-to-string 339 (with-output-to-string
340 (call-process shell-file-name nil t nil "-c" command))) 340 (call-process shell-file-name nil t nil shell-command-switch command)))
341 341
342 (defalias 'shell-command-to-string 'exec-to-string) 342 (defalias 'shell-command-to-string 'exec-to-string)
343 343
344 ;;; process.el ends here 344 ;;; process.el ends here