From: Taylor R. Campbell <net/mumble/campbell>
Date: Wed, 18 Feb 2009 07:46:59 +0000 (+0000)
Subject: Name the lisppaste message pop-up buffer `*lisppaste*', not
X-Git-Tag: 20090517-FFI~70
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7f39c99a074404c89a6642dfc056d285e8aefc12;p=mit-scheme.git

Name the lisppaste message pop-up buffer `*lisppaste*', not
`*lisppaste-error*', since the message is not necessarily of an
error.
---

diff --git a/v7/src/edwin/lisppaste.scm b/v7/src/edwin/lisppaste.scm
index 77247eaac..6ae1da5d6 100644
--- a/v7/src/edwin/lisppaste.scm
+++ b/v7/src/edwin/lisppaste.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: lisppaste.scm,v 1.2 2008/10/18 21:20:25 riastradh Exp $
+$Id: lisppaste.scm,v 1.3 2009/02/18 07:46:59 riastradh Exp $
 
 This code is written by Taylor R. Campbell and placed in the Public
 Domain.
@@ -358,5 +358,5 @@ With a prefix argument, list pastes starting at a certain number."
                 (window-x-size (typein-window)))))
       (message string)
       (string->temporary-buffer string
-                                " *lisppaste-error*"
+                                " *lisppaste*"
                                 '(READ-ONLY SHRINK-WINDOW FLUSH-ON-SPACE))))