From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 28 Jan 1999 04:16:34 +0000 (+0000)
Subject: Add USUAL-INTEGRATIONS declaration.
X-Git-Tag: 20090517-FFI~4679
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=106ff738006b9bd78c490ce35d4902e356341b10;p=mit-scheme.git

Add USUAL-INTEGRATIONS declaration.
---

diff --git a/v7/src/edwin/mousecom.scm b/v7/src/edwin/mousecom.scm
index c63124452..99e69623b 100644
--- a/v7/src/edwin/mousecom.scm
+++ b/v7/src/edwin/mousecom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: mousecom.scm,v 1.2 1999/01/02 06:11:34 cph Exp $
+;;; $Id: mousecom.scm,v 1.3 1999/01/28 04:16:34 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -17,10 +17,11 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-;;;
-;;;
+
 ;;;; Mouse Commands
 
+(declare (usual-integrations))
+
 (define-command mouse-select
   "Select window the mouse is on."
   ()
@@ -93,4 +94,4 @@ Display cursor at that position for a second."
 (define button2-up (make-up-button 1))
 (define button3-up (make-up-button 2))
 (define button4-up (make-up-button 3))
-(define button5-up (make-up-button 4))
+(define button5-up (make-up-button 4))
\ No newline at end of file