Commit 17cc9013 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(shell-command-to-string): Make the buffer current

since output goes in current buffer.  Use shell-command-switch.
parent 79e098ca
...@@ -945,7 +945,9 @@ In either case, the output is inserted after point (leaving mark after it)." ...@@ -945,7 +945,9 @@ In either case, the output is inserted after point (leaving mark after it)."
(defun shell-command-to-string (command) (defun shell-command-to-string (command)
"Execute shell command COMMAND and return its output as a string." "Execute shell command COMMAND and return its output as a string."
(with-output-to-string (with-output-to-string
(call-process shell-file-name nil t nil "-c" command))) (with-current-buffer
standard-output
(call-process shell-file-name nil t nil shell-command-switch command))))
(defconst universal-argument-map (defconst universal-argument-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment