From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 17 Nov 1992 06:05:39 +0000 (+0000)
Subject: Fixes to last set of changes.
X-Git-Tag: 20090517-FFI~8764
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3d1bc8a646e80606ced51c0df52bfbe881f233eb;p=mit-scheme.git

Fixes to last set of changes.
---

diff --git a/v7/src/edwin/comint.scm b/v7/src/edwin/comint.scm
index a234f1b6a..ebc5c7d72 100644
--- a/v7/src/edwin/comint.scm
+++ b/v7/src/edwin/comint.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: comint.scm,v 1.16 1992/11/16 22:40:54 cph Exp $
+$Id: comint.scm,v 1.17 1992/11/17 06:05:39 cph Exp $
 
 Copyright (c) 1991-1992 Massachusetts Institute of Technology
 
@@ -128,7 +128,7 @@ Entry to this mode runs the hooks on comint-mode-hook."
       (make-ring (ref-variable comint-input-ring-size)))
     (define-variable-local-value! buffer
 	(ref-variable-object comint-last-input-end)
-      (mark-right-inserting-copy (buffer-end (current-buffer))))
+      (mark-right-inserting-copy (buffer-end buffer)))
     (define-variable-local-value! buffer
 	(ref-variable-object comint-last-input-match)
       false)