mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(shell-command-to-string): New function.

Browse Source
This commit is contained in:
Richard M. Stallman 1996-09-24 20:04:48 +00:00
parent 5db7925ddc
commit d589bd993b
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/simple.el
View File

@ -941,6 +941,11 @@ In either case, the output is inserted after point (leaving mark after it)."
(set-buffer buffer)
(goto-char (point-min)))
(display-buffer buffer))))))))
(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 "-c" command)))
(defconst universal-argument-map
(let ((map (make-sparse-keymap)))