Add USUAL-INTEGRATIONS declaration.

diff --git a/v7/src/edwin/mousecom.scm b/v7/src/edwin/mousecom.scm
index c63124452e3878d9c06476c8ef1f481615bc7e9e..99e69623bef305982de1608a2e3faa1ca074fece 100644 (file)
--- 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))
+\f
 (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