From: Brian A. LaMacchia <edu/mit/csail/zurich/bal>
Date: Tue, 26 Nov 1991 21:18:56 +0000 (+0000)
Subject: Arthur ran into a problem where kill-string seemed to be hanging.
X-Git-Tag: 20090517-FFI~10041
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=279fcc9e37d543434ddba333dbc9fdb2d01a0821;p=mit-scheme.git

Arthur ran into a problem where kill-string seemed to be hanging.
Since kill-string wasn't necessary, it was changed to delete-string (the
kill ring would never be used).
---

diff --git a/v7/src/edwin/rmailsrt.scm b/v7/src/edwin/rmailsrt.scm
index ce8e2ac2a..9fb90887d 100644
--- a/v7/src/edwin/rmailsrt.scm
+++ b/v7/src/edwin/rmailsrt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsrt.scm,v 1.5 1991/11/04 19:40:43 bal Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmailsrt.scm,v 1.6 1991/11/26 21:18:56 bal Exp $
 ;;;
 ;;;	Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -154,7 +154,7 @@ If prefix argument REVERSE is non-nil, sort them in reverse order."
 	       (cmpfunc (car x) (car y))))
       (message "Reordering buffer...")
       (set-buffer-writeable! (current-buffer))
-      (kill-string
+      (delete-string
        (msg-memo/start (msg-memo/first (current-msg-memo)))
        (msg-memo/end (msg-memo/last (current-msg-memo))))
       (let loop ((n 0)