changeset 10373:c5c1ffa3755e

(Fscroll_other_window): On small windows, scroll by 1 line.
author Karl Heuer <kwzh@gnu.org>
date Tue, 10 Jan 1995 00:06:50 +0000
parents bdf897e70017
children d6de68b87cbd
files src/window.c
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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))