# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 789696410 0
# Node ID c5c1ffa3755e248648c68fa9ad4968fa74778a1e
# Parent  bdf897e70017b25bb9d92a752cb17f6d0c92dfae
(Fscroll_other_window): On small windows, scroll by 1 line.

diff -r bdf897e70017 -r c5c1ffa3755e src/window.c
--- a/src/window.c	Mon Jan 09 23:10:10 1995 +0000
+++ b/src/window.c	Tue Jan 10 00:06:50 1995 +0000
@@ -2580,14 +2580,15 @@
      register Lisp_Object n;
 {
   register Lisp_Object window;
-  register int ht;
+  register int defalt;
   register struct window *w;
   register int count = specpdl_ptr - specpdl;
 
   window = Fother_window_for_scrolling ();
 
   w = XWINDOW (window);
-  ht = window_internal_height (w);
+  defalt = window_internal_height (w) - next_screen_context_lines;
+  if (defalt < 1) defalt = 1;
 
   /* Don't screw up if window_scroll gets an error.  */
   record_unwind_protect (save_excursion_restore, save_excursion_save ());
@@ -2596,9 +2597,9 @@
   SET_PT (marker_position (w->pointm));
 
   if (NILP (n))
-    window_scroll (window, ht - next_screen_context_lines, 1);
+    window_scroll (window, defalt, 1);
   else if (EQ (n, Qminus))
-    window_scroll (window, next_screen_context_lines - ht, 1);
+    window_scroll (window, -defalt, 1);
   else
     {
       if (CONSP (n))