view lib-src/leditcfns.c @ 14612:0019d219990c

(swallow_events): New arg DO_DISPLAY. (swallow_events): Process timer_event events here. (detect_input_pending_run_timers): New function. (Vtimer_idle_list): New variable. (syms_of_keyboard): Set up Lisp var. (timer_check): Check for idle-time timers too. Expect timers to have 8 slots. Initialize triggertime. (timer_start_idle, timer_stop_idle): New functions. (get_input_pending): New arg do_timers_now. (readable_events): Likewise. (Finput_pending_p): Use get_input_pending, so we can specify 1 for do_timers_now. (timer_check): Check for difference being zero.
author Karl Heuer <kwzh@gnu.org>
date Wed, 21 Feb 1996 21:06:51 +0000
parents da530eb93c1a
children 695cf19ef79e
line wrap: on
line source

#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);
    }