From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 11 Apr 1991 03:06:39 +0000 (+0000)
Subject: Change `shell-command' and `shell-command-region' to accept any mark
X-Git-Tag: 20090517-FFI~10768
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=eeee3b5569868d4c09e42a9efd1e1adb58ef72b3;p=mit-scheme.git

Change `shell-command' and `shell-command-region' to accept any mark
as the output mark, and convert it into an appropriate left-inserting
mark.
---

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index 9a62fee12..8401d3c2e 100644
--- a/v7/src/edwin/process.scm
+++ b/v7/src/edwin/process.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/process.scm,v 1.2 1991/04/03 00:18:20 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/process.scm,v 1.3 1991/04/11 03:06:39 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -455,7 +455,8 @@ after the listing is made.)"
 
 (define (shell-command command output-mark)
   (let ((process
-	 (start-pipe-subprocess "/bin/sh" (vector "sh" "-c" command) false)))
+	 (start-pipe-subprocess "/bin/sh" (vector "sh" "-c" command) false))
+	(output-mark (mark-left-inserting output-mark)))
     (channel-close (subprocess-output-channel process))
     (let ((output-channel (subprocess-input-channel process)))
       (channel-nonblocking output-channel)
@@ -506,6 +507,7 @@ after the listing is made.)"
 (define (shell-command-region command output-mark input-region)
   (let ((process
 	 (start-pipe-subprocess "/bin/sh" (vector "sh" "-c" command) false))
+	(output-mark (mark-left-inserting output-mark))
 	(group (region-group input-region))
 	(start-index (region-start-index input-region))
 	(end-index (region-end-index input-region)))