# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 766163518 0
# Node ID bcaddbe530681dc2230a624c0d50a65c94ef5810
# Parent  684201f9fa7f5a7cdfabfc8315654ba1c9752438
(Fset_process_window_size):  New function.

diff -r 684201f9fa7f -r bcaddbe53068 src/process.c
--- a/src/process.c	Tue Apr 12 15:08:30 1994 +0000
+++ b/src/process.c	Tue Apr 12 15:11:58 1994 +0000
@@ -775,6 +775,22 @@
   return XPROCESS (proc)->sentinel;
 }
 
+DEFUN ("set-process-window-size", Fset_process_window_size,
+  Sset_process_window_size, 3, 3, 0,
+  "Tell PROCESS that it has logical window size HEIGHT and WIDTH.")
+  (proc, height, width)
+     register Lisp_Object proc, height, width;
+{
+  CHECK_PROCESS (proc, 0);
+  CHECK_NATNUM (height, 0);
+  CHECK_NATNUM (width, 0);
+  if (set_window_size (XINT (XPROCESS (proc)->infd),
+		       XINT (height), XINT(width)) <= 0)
+    return Qnil;
+  else
+    return Qt;
+}
+
 DEFUN ("process-kill-without-query", Fprocess_kill_without_query,
   Sprocess_kill_without_query, 1, 2, 0,
   "Say no query needed if PROCESS is running when Emacs is exited.\n\
@@ -3149,6 +3165,7 @@
   defsubr (&Sset_process_filter);
   defsubr (&Sprocess_filter);
   defsubr (&Sset_process_sentinel);
+  defsubr (&Sset_process_window_size);
   defsubr (&Sprocess_sentinel);
   defsubr (&Sprocess_kill_without_query);
   defsubr (&Slist_processes);