From 1157df3e059024a1889833ff24811e0fc741b675 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Aug 1993 06:03:21 +0000
Subject: [PATCH] Add operation to get the mark from a buffer output port.

---
 v7/src/edwin/bufout.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/bufout.scm b/v7/src/edwin/bufout.scm
index dd28164fc..60e08eac6 100644
--- a/v7/src/edwin/bufout.scm
+++ b/v7/src/edwin/bufout.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/bufout.scm,v 1.8 1992/04/16 22:28:44 cph Exp $
+;;;	$Id: bufout.scm,v 1.9 1993/08/12 06:03:21 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -65,6 +65,9 @@
 			      false
 			      buffer))))
 
+(define (output-port->mark port)
+  (mark-temporary-copy (port/mark port)))
+
 (define-integrable (port/mark port)
   (car (port/state port)))
 
-- 
2.25.1