From 30209589c190ad2542558c5bdc9336a553495aee Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 1 Sep 1993 18:03:14 +0000 Subject: [PATCH] Add resize-screen command. --- v7/src/edwin/scrcom.scm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/v7/src/edwin/scrcom.scm b/v7/src/edwin/scrcom.scm index 0f84e8690..17d780c45 100644 --- 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 -- 2.25.1