Mercurial > emacs
changeset 6830:bcaddbe53068
(Fset_process_window_size): New function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 12 Apr 1994 15:11:58 +0000 |
| parents | 684201f9fa7f |
| children | dbfdd66854c9 |
| files | src/process.c |
| diffstat | 1 files changed, 17 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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);