home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / emacs-18.59-src.lha / GNU / src / amiga / emacs-18.59 / etc / leditcfns.c < prev    next >
Encoding:
C/C++ Source or Header  |  1985-04-18  |  427 b   |  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.