(shell-command): Really use output-buffer in synchronous

case, when it is a buffer.

(shell-command): Really use output-buffer in synchronous
case, when it is a buffer.
f2b3cdc3 · Richard M. Stallman · 7c983171 · f2b3cdc3
Commit f2b3cdc3 authored Aug 17, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/simple.el lisp/simple.el +1 -1

No files found.
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -828,7 +828,7 @@ In either case, the output is inserted after point (leaving mark after it)."
 		  (require 'shell) (shell-mode)
 		  (set-process-sentinel proc 'shell-command-sentinel)
 		  ))
-	    (shell-command-on-region (point) (point) command nil)
+	    (shell-command-on-region (point) (point) command output-buffer)
 	    ))))))

 ;; We have a sentinel to prevent insertion of a termination message