Add resize-screen command.

diff --git a/v7/src/edwin/scrcom.scm b/v7/src/edwin/scrcom.scm
index 0f84e8690c733728d19af0412a1c623b67222566..17d780c459401a02dcc0bb55e26628df10af295d 100644 (file)
--- a/v7/src/edwin/scrcom.scm
+++ b/v7/src/edwin/scrcom.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/scrcom.scm,v 1.3 1990/10/03 04:56:01 cph Rel $
+;;;    $Id: scrcom.scm,v 1.4 1993/09/01 18:03:14 gjr Exp $
 ;;;
-;;;    Copyright (c) 1990 Massachusetts Institute of Technology
+;;;    Copyright (c) 1990-1993 Massachusetts Institute of Technology
 ;;;
 ;;;    This material was developed by the Scheme project at the
 ;;;    Massachusetts Institute of Technology, Department of
@@ -52,4 +52,10 @@
   (lambda ()
     (if (null? (cdr (screen-list)))
        (editor-error "Can't delete the only screen"))
-    (delete-screen! (selected-screen))))
\ No newline at end of file
+    (delete-screen! (selected-screen))))
+
+(define-command resize-screen
+  "Resize the screen that point is in."
+  ()
+  (lambda ()
+    (resize-screen)))
\ No newline at end of file