home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / emacs-18.59-src.tgz / emacs-18.59-src.tar / fsf / emacs18 / etc / leditcfns.c < prev    next >
C/C++ Source or Header  |  1996-09-28  |  427b  |  19 lines
  1. #include <sgtty.h>
  2. #include <signal.h>
  3. #define STRLEN 100
  4. static char str[STRLEN+1] = "%?emacs"; /* extra char for the null */
  5.  
  6. switch_to_proc(){
  7.     char *ptr = str;
  8.     while (*ptr) ioctl(0, TIOCSTI, ptr++);
  9.     ioctl(0, TIOCSTI, "\n");
  10.     kill(getpid(), SIGTSTP);
  11.     }
  12.  
  13. set_proc_str(ptr) char *ptr; {
  14.     if (strlen(ptr) <= STRLEN)
  15.     strcpy(str, ptr);
  16.     else
  17.     printf("string too long for set-proc-str: %s\n", ptr);
  18.     }
  19.