Mercurial > emacs
changeset 0:da530eb93c1a
entered into RCS
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Thu, 18 Apr 1985 00:48:29 +0000 |
| parents | |
| children | 08ab8bcdd648 |
| files | lib-src/leditcfns.c |
| diffstat | 1 files changed, 18 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lib-src/leditcfns.c Thu Apr 18 00:48:29 1985 +0000 @@ -0,0 +1,18 @@ +#include <sgtty.h> +#include <signal.h> +#define STRLEN 100 +static char str[STRLEN+1] = "%?emacs"; /* extra char for the null */ + +switch_to_proc(){ + char *ptr = str; + while (*ptr) ioctl(0, TIOCSTI, ptr++); + ioctl(0, TIOCSTI, "\n"); + kill(getpid(), SIGTSTP); + } + +set_proc_str(ptr) char *ptr; { + if (strlen(ptr) <= STRLEN) + strcpy(str, ptr); + else + printf("string too long for set-proc-str: %s\n", ptr); + }