From 8347d24f13139e9baddf353af1f46ecbe2473fbb Mon Sep 17 00:00:00 2001
From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Fri, 23 Aug 1991 00:24:48 +0000
Subject: [PATCH] Add SCROLL-OTHER-WINDOW-DOWN command and bind

  M-prior to SCROLL-OTHER-WINDOW-DOWN
  M-next  to SCROLL-OTHER-WINDOW
---
 v7/src/edwin/make.scm   |  4 ++--
 v7/src/edwin/modefs.scm |  4 +++-
 v7/src/edwin/wincom.scm | 13 ++++++++++++-
 3 files changed, 17 insertions(+), 4 deletions(-)

diff --git a/v7/src/edwin/make.scm b/v7/src/edwin/make.scm
index 9afc18572..d36070aec 100644
--- a/v7/src/edwin/make.scm
+++ b/v7/src/edwin/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/make.scm,v 3.55 1991/08/13 02:31:32 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/make.scm,v 3.56 1991/08/23 00:24:48 arthur Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -37,4 +37,4 @@ MIT in each case. |#
 (declare (usual-integrations))
 
 (package/system-loader "edwin" '() 'QUERY)
-(add-system! (make-system "Edwin" 3 55 '()))
\ No newline at end of file
+(add-system! (make-system "Edwin" 3 56 '()))
\ No newline at end of file
diff --git a/v7/src/edwin/modefs.scm b/v7/src/edwin/modefs.scm
index 533a9e976..27c9bfcb6 100644
--- a/v7/src/edwin/modefs.scm
+++ b/v7/src/edwin/modefs.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modefs.scm,v 1.132 1991/08/08 19:00:04 arthur Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modefs.scm,v 1.133 1991/08/23 00:23:35 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1985, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -245,6 +245,8 @@ Like Fundamental mode, but no self-inserting characters.")
 (define-key 'fundamental #\c-m-t 'transpose-sexps)
 (define-key 'fundamental #\c-m-u 'backward-up-list)
 (define-key 'fundamental #\c-m-v 'scroll-other-window)
+(define-key 'fundamental (make-special-key 'next 1) 'scroll-other-window)
+(define-key 'fundamental (make-special-key 'prior 1) 'scroll-other-window-down)
 (define-key 'fundamental #\c-m-w 'append-next-kill)
 (define-key 'fundamental #\c-m-rubout 'backward-kill-sexp)
 
diff --git a/v7/src/edwin/wincom.scm b/v7/src/edwin/wincom.scm
index cc0990c32..f4fc699fb 100644
--- a/v7/src/edwin/wincom.scm
+++ b/v7/src/edwin/wincom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/wincom.scm,v 1.106 1991/08/08 18:57:17 arthur Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/wincom.scm,v 1.107 1991/08/23 00:23:45 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1987, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -195,6 +195,17 @@ Just minus as an argument moves down full screen."
       (scroll-window window
 		     (standard-scroll-window-argument window argument 1)))))
 
+(define-command scroll-other-window-down
+  "Scroll text of next window down ARG lines, or near full screen if no arg."
+  "P"
+  (lambda (argument)
+    (let ((window
+	   (or (and (typein-window? (current-window))
+		    (object-unhash *minibuffer-scroll-window*))
+	       (other-window-interactive 1))))
+      (scroll-window window
+		     (standard-scroll-window-argument window argument -1)))))
+
 (define-command scroll-other-window-several-screens
   "Scroll other window up several screenfuls.
 Specify the number as a numeric argument, negative for down.
-- 
2.25.1