Mercurial > hg > xemacs-beta

comparison lib-src/leditcfns.c @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
1 /* Synched up with: FSF 19.28. */
2
3 #include <sgtty.h>
4 #include <signal.h>
5 #define STRLEN 100
6 static char str[STRLEN+1] = "%?emacs"; /* extra char for the null */
7
8 switch_to_proc(){
9 char *ptr = str;
10 while (*ptr) ioctl(0, TIOCSTI, ptr++);
11 ioctl(0, TIOCSTI, "\n");
12 kill(getpid(), SIGTSTP);
13 }
14
15 set_proc_str(ptr) char *ptr; {
16 if (strlen(ptr) <= STRLEN)
17 strcpy(str, ptr);
18 else
19 printf("string too long for set-proc-str: %s\n", ptr);
20 }