Mercurial > hg > xemacs-beta

comparison src/signal.c @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents 9f59509498e1
children 2c611d1463a6
comparison
equal deleted inserted replaced
208:f427b8ec4379 209:41ff10fd062f
404 * the user elects to return to emacs, at which point he can save the current 404 * the user elects to return to emacs, at which point he can save the current
405 * job and either dump core or continue. 405 * job and either dump core or continue.
406 */ 406 */
407 sys_suspend (); 407 sys_suspend ();
408 #else 408 #else
409 #ifdef VMS
410 if (sys_suspend () == -1)
411 {
412 stdout_out ("Not running as a subprocess;\n");
413 stdout_out ("you can continue or abort.\n");
414 }
415 #else /* not VMS */
416 /* Perhaps should really fork an inferior shell? 409 /* Perhaps should really fork an inferior shell?
417 But that would not provide any way to get back 410 But that would not provide any way to get back
418 to the original shell, ever. */ 411 to the original shell, ever. */
419 stdout_out ("No support for stopping a process on this operating system;\n"); 412 stdout_out ("No support for stopping a process on this operating system;\n");
420 stdout_out ("you can continue or abort.\n"); 413 stdout_out ("you can continue or abort.\n");
421 #endif /* not VMS */
422 #endif /* not SIGTSTP */ 414 #endif /* not SIGTSTP */
423 stdout_out ("Auto-save? (y or n) "); 415 stdout_out ("Auto-save? (y or n) ");
424 fflush (stdout); 416 fflush (stdout);
425 if (((c = getc (stdin)) & ~040) == 'Y') 417 if (((c = getc (stdin)) & ~040) == 'Y')
426 Fdo_auto_save (Qnil, Qnil); 418 Fdo_auto_save (Qnil, Qnil);
427 while (c != '\n') 419 while (c != '\n')
428 c = getc (stdin); 420 c = getc (stdin);
429 #ifdef VMS
430 stdout_out ("Abort (and enter debugger)? (y or n) ");
431 #else /* not VMS */
432 stdout_out ("Abort (and dump core)? (y or n) "); 421 stdout_out ("Abort (and dump core)? (y or n) ");
433 #endif /* not VMS */
434 fflush (stdout); 422 fflush (stdout);
435 if (((c = getc (stdin)) & ~040) == 'Y') 423 if (((c = getc (stdin)) & ~040) == 'Y')
436 abort (); 424 abort ();
437 while (c != '\n') 425 while (c != '\n')
438 c = getc (stdin); 426 c = getc (stdin);