🚀 go-pugleaf

In article <1536@umvlsi.ecs.umass.edu> breck@umvlsi.ecs.umass.edu (Liam Breck) writes:
> 
> Hi all...
> 
> You know the handy system("shell_command_here") call in C that returns
> the command's output as a string?  Well I need something like that for
> Emacs Lisp...  


(defun shell-command-to-string (command &optional start end)
  "Execute string COMMAND in inferior shell and return the resulting output
as a string.  Optional second and third arguments specify a region to use
as input to the shell."
  (let ((temp-buffer-show-hook (function ignore)))
    (with-output-to-temp-buffer " *Shell-tmp*"
      (if start
	  (call-process-region start (min (point-max) (or end (point-max)))
			       shell-file-name nil standard-output nil 
			       "-c" command)
	(call-process shell-file-name nil standard-output nil
		      "-c" command))
      (save-excursion
	(set-buffer standard-output)
	(buffer-string)))))