view lib-src/=wakeup.c @ 2077:6885836c2f98

(rmail-update-summary): New function. (rmail-new-summary): New arg redo-form. Considerable rewrite of how and when buffers are selected. (rmail-summary-mode): New local vars rmail-summary-redo, revert-buffer-function, post-command-hook, rmail-current-message. (rmail-summary-expunge): Use rmail-update-summary. (rmail-summary-get-new-mail): Likewise. (rmail-summary-expunge-and-save): Likewise. (rmail-summary-input): Don't update summary at all. (rmail-summary-reply): Do the work inside save-window-excursion, then switch to the mail buffer. (rmail-summary-retry-failure): Likewise. (rmail-summary-edit-current-message): Delete spurious autoload. (rmail-summary-summary): Function deleted. Use plain rmail-summary on h and C-M-h. (rmail-summary-rmail-update): New function. Big rewrite from [e-mail].

/* Program to produce output at regular intervals.  */

#include <stdio.h>
#include <time.h>

struct tm *localtime ();

main (argc, argv)
     int argc;
     char **argv;
{
  int period = 60;
  long when;
  struct tm *tp;

  if (argc > 1)
    period = atoi (argv[1]);

  while (1)
    {
      /* Make sure wakeup stops when Emacs goes away.  */
      if (getppid () == 1)
	exit (0);
      printf ("Wake up!\n");
      fflush (stdout);
      /* If using a period of 60, produce the output when the minute
	 changes. */
      if (period == 60)
	{
	  time (&when);
	  tp = localtime (&when);
	  sleep (60 - tp->tm_sec);
	}
      else
	sleep (period);
    }
}