Add SCROLL-OTHER-WINDOW-DOWN command and bind

  M-prior to SCROLL-OTHER-WINDOW-DOWN
  M-next  to SCROLL-OTHER-WINDOW

diff --git a/v7/src/edwin/make.scm b/v7/src/edwin/make.scm
index 9afc18572153420013184575cb601db342b779f4..d36070aec3df24124c962f186e19cde4cec555e5 100644 (file)
--- 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 533a9e976d40d4843a523d0cb7bfcdaa21d8bc3e..27c9bfcb670efa47c6d2c85369ad17e46d691584 100644 (file)
--- 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)
 \f

diff --git a/v7/src/edwin/wincom.scm b/v7/src/edwin/wincom.scm
index cc0990c326a0ddc636b027c7cec028a74b18f119..f4fc699fb92a8d2797a8bef9084fce007d8bb986 100644 (file)
--- 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.