[Emacs-diffs] Changes to emacs/lib-src/leditcfns.c [lexbind]

[Miles Bader]

Index: emacs/lib-src/leditcfns.c
diff -c /dev/null emacs/lib-src/leditcfns.c:1.1.18.1
*** /dev/null   Tue Oct 14 19:59:24 2003
--- emacs/lib-src/leditcfns.c   Tue Oct 14 19:59:14 2003
***************
*** 0 ****
--- 1,21 ----
+ #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);
+     }
+ 
+ /* arch-tag: eb7ae804-0d6e-4077-ab42-7173821410c3
+    (do not change this comment) */