comparison src/window.c @ 35841:ca8a0bbc64f7

(Fenlarge_window, Fshrink_window): Doc fix.

35840:76aa6a25b931

  return new;
}

DEFUN ("enlarge-window", Fenlarge_window, Senlarge_window, 1, 2, "p",
  "Make current window ARG lines bigger.\n\
From program, optional second arg non-nil means grow sideways ARG columns.")
  (arg, side)
     register Lisp_Object arg, side;
{
  CHECK_NUMBER (arg, 0);
  enlarge_window (selected_window, XINT (arg), !NILP (side));

  return Qnil;
}

DEFUN ("shrink-window", Fshrink_window, Sshrink_window, 1, 2, "p",
  "Make current window ARG lines smaller.\n\
From program, optional second arg non-nil means shrink sideways arg columns.")
  (arg, side)
     register Lisp_Object arg, side;
{
  CHECK_NUMBER (arg, 0);
  enlarge_window (selected_window, -XINT (arg), !NILP (side));

35841:ca8a0bbc64f7

  return new;
}

DEFUN ("enlarge-window", Fenlarge_window, Senlarge_window, 1, 2, "p",
  "Make current window ARG lines bigger.\n\
From program, optional second arg non-nil means grow sideways ARG columns.\n\
Interactively, if an argument is not given, make the window one line bigger.")
  (arg, side)
     register Lisp_Object arg, side;
{
  CHECK_NUMBER (arg, 0);
  enlarge_window (selected_window, XINT (arg), !NILP (side));

  return Qnil;
}

DEFUN ("shrink-window", Fshrink_window, Sshrink_window, 1, 2, "p",
  "Make current window ARG lines smaller.\n\
From program, optional second arg non-nil means shrink sideways arg columns.\n\
Interactively, if an argument is not given, make the window one line smaller.")
  (arg, side)
     register Lisp_Object arg, side;
{
  CHECK_NUMBER (arg, 0);
  enlarge_window (selected_window, -XINT (arg), !NILP (side));