From 4f8ac67c6ac39f0f4c6ceddf7e1d5184ba196f28 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 11 Mar 1994 05:25:18 +0000
Subject: [PATCH] Bind SHRINK-WINDOW-IF-LARGER-THAN-BUFFER to `C-x -'.

---
 v7/src/edwin/modefs.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/v7/src/edwin/modefs.scm b/v7/src/edwin/modefs.scm
index e9bcc829b..8a8376838 100644
--- a/v7/src/edwin/modefs.scm
+++ b/v7/src/edwin/modefs.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: modefs.scm,v 1.145 1994/03/08 20:33:26 cph Exp $
+;;;	$Id: modefs.scm,v 1.146 1994/03/11 05:25:18 cph Exp $
 ;;;
 ;;;	Copyright (c) 1985, 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -270,6 +270,7 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental '(#\c-x #\c-z) 'suspend-scheme)
 (define-key 'fundamental '(#\c-x #\() 'start-kbd-macro)
 (define-key 'fundamental '(#\c-x #\)) 'end-kbd-macro)
+(define-key 'fundamental '(#\c-x #\-) 'shrink-window-if-larger-than-buffer)
 (define-key 'fundamental '(#\c-x #\.) 'set-fill-prefix)
 (define-key 'fundamental '(#\c-x #\/) 'point-to-register)
 (define-key 'fundamental '(#\c-x #\0) 'delete-window)
-- 
2.25.1