From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 26 Oct 2000 19:25:18 +0000 (+0000)
Subject: In WITH-OUTPUT-TO-HELP-DISPLAY, don't change window/buffer arrangement
X-Git-Tag: 20090517-FFI~3213
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b053d93a36722360fcd8384a112441af80227949;p=mit-scheme.git

In WITH-OUTPUT-TO-HELP-DISPLAY, don't change window/buffer arrangement
until after the argument thunk has been executed.
---

diff --git a/v7/src/edwin/hlpcom.scm b/v7/src/edwin/hlpcom.scm
index eb1076bbe..ac28ad700 100644
--- a/v7/src/edwin/hlpcom.scm
+++ b/v7/src/edwin/hlpcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: hlpcom.scm,v 1.120 2000/06/15 00:58:43 cph Exp $
+;;; $Id: hlpcom.scm,v 1.121 2000/10/26 19:25:18 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -299,7 +299,9 @@ If you want VALUE to be a string, you must surround it with doublequotes."
 	      (buffer-not-modified! buffer)))))))
 
 (define (with-output-to-help-display thunk)
-  (with-output-to-temporary-buffer "*Help*" '(READ-ONLY) thunk))
+  (string->temporary-buffer (with-output-to-string thunk)
+			    "*Help*"
+			    '(READ-ONLY)))
 
 (define (write-description description #!optional port)
   (write-string (substitute-command-keys description)