comparison src/window.c @ 10373:c5c1ffa3755e

(Fscroll_other_window): On small windows, scroll by 1 line.

10372:bdf897e70017

showing that buffer, popping the buffer up if necessary.")
  (n)
     register Lisp_Object n;
{
  register Lisp_Object window;
  register int ht;
  register struct window *w;
  register int count = specpdl_ptr - specpdl;

  window = Fother_window_for_scrolling ();

  w = XWINDOW (window);
  ht = window_internal_height (w);

  /* Don't screw up if window_scroll gets an error.  */
  record_unwind_protect (save_excursion_restore, save_excursion_save ());

  Fset_buffer (w->buffer);
  SET_PT (marker_position (w->pointm));

  if (NILP (n))
    window_scroll (window, ht - next_screen_context_lines, 1);
  else if (EQ (n, Qminus))
    window_scroll (window, next_screen_context_lines - ht, 1);
  else
    {
      if (CONSP (n))
	n = Fcar (n);
      CHECK_NUMBER (n, 0);

10373:c5c1ffa3755e

showing that buffer, popping the buffer up if necessary.")
  (n)
     register Lisp_Object n;
{
  register Lisp_Object window;
  register int defalt;
  register struct window *w;
  register int count = specpdl_ptr - specpdl;

  window = Fother_window_for_scrolling ();

  w = XWINDOW (window);
  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 ());

  Fset_buffer (w->buffer);
  SET_PT (marker_position (w->pointm));

  if (NILP (n))
    window_scroll (window, defalt, 1);
  else if (EQ (n, Qminus))
    window_scroll (window, -defalt, 1);
  else
    {
      if (CONSP (n))
	n = Fcar (n);
      CHECK_NUMBER (n, 0);