annotate lib-src/leditcfns.c @ 1428:10738b72057d

[xemacs-hg @ 2003-04-24 05:29:11 by youngs] 2003-04-24 Steve Youngs <youngs@xemacs.org> * font-lock.el (font-lock-match-java-declarations): Move save-restriction, narrow-to-region to beginning of function to avoid going beyond the limit and causing an infloop. From Jin Choi <jsc@orangeimagineering.com>. 2003-04-24 Vasily Korytov <deskpot@myrealbox.com> * lisp-mode.el (emacs-lisp-mode-hook, lisp-mode-hook, lisp-interaction-mode-hook): Add the docstrings.
author youngs
date Thu, 24 Apr 2003 05:29:12 +0000
parents 376386a54a3c
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 /* Synched up with: FSF 19.28. */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 #include <sgtty.h>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 #include <signal.h>
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 #define STRLEN 100
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 static char str[STRLEN+1] = "%?emacs"; /* extra char for the null */
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8 switch_to_proc(){
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 char *ptr = str;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 while (*ptr) ioctl(0, TIOCSTI, ptr++);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 ioctl(0, TIOCSTI, "\n");
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 kill(getpid(), SIGTSTP);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 set_proc_str(ptr) char *ptr; {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 if (strlen(ptr) <= STRLEN)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 strcpy(str, ptr);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 printf("string too long for set-proc-str: %s\n", ptr);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 }