Mercurial > hg > xemacs-beta

comparison src/emacs.c @ 2268:61855263cb07

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-14 14:32:29 by james] Identify functions that don't return, including some DEFUNs.
author james
date Tue, 14 Sep 2004 14:33:07 +0000
parents 9361a78f86a0
children 04bc9d2f42c7
comparison
equal deleted inserted replaced
2267:5753220a0f80 2268:61855263cb07
2680 2680
2681 #undef ADD_PLIST 2681 #undef ADD_PLIST
2682 return Fnreverse (plist); 2682 return Fnreverse (plist);
2683 } 2683 }
2684 2684
2685 DEFUN ("run-emacs-from-temacs", Frun_emacs_from_temacs, 0, MANY, 0, /* 2685 DEFUN_NORETURN ("run-emacs-from-temacs", Frun_emacs_from_temacs, 0, MANY, 0, /*
2686 Do not call this. It will reinitialize your XEmacs. You'll be sorry. 2686 Do not call this. It will reinitialize your XEmacs. You'll be sorry.
2687 */ 2687 */
2688 /* If this function is called from startup.el, it will be possible to run 2688 /* If this function is called from startup.el, it will be possible to run
2689 temacs as an editor using 'temacs -batch -l loadup.el run-temacs', instead 2689 temacs as an editor using 'temacs -batch -l loadup.el run-temacs', instead
2690 of having to dump an emacs and then run that (when debugging emacs itself, 2690 of having to dump an emacs and then run that (when debugging emacs itself,
3372 #endif 3372 #endif
3373 voodoo_free_hook; 3373 voodoo_free_hook;
3374 } 3374 }
3375 #endif /* GNU_MALLOC */ 3375 #endif /* GNU_MALLOC */
3376 3376
3377 DEFUN ("kill-emacs", Fkill_emacs, 0, 1, "P", /* 3377 DEFUN_NORETURN ("kill-emacs", Fkill_emacs, 0, 1, "P", /*
3378 Exit the XEmacs job and kill it. Ask for confirmation, without argument. 3378 Exit the XEmacs job and kill it. Ask for confirmation, without argument.
3379 If ARG is an integer, return ARG as the exit program code. 3379 If ARG is an integer, return ARG as the exit program code.
3380 If ARG is a string, stuff it as keyboard input. 3380 If ARG is a string, stuff it as keyboard input.
3381 3381
3382 The value of `kill-emacs-hook', if not void, 3382 The value of `kill-emacs-hook', if not void,
3438 #endif 3438 #endif
3439 voodoo_free_hook; 3439 voodoo_free_hook;
3440 #endif 3440 #endif
3441 3441
3442 exit (INTP (arg) ? XINT (arg) : 0); 3442 exit (INTP (arg) ? XINT (arg) : 0);
3443 /* NOTREACHED */ 3443 RETURN_NOT_REACHED (Qnil);
3444 return Qnil; /* I'm sick of the compiler warning */
3445 } 3444 }
3446 3445
3447 /* -------------------------------- */ 3446 /* -------------------------------- */
3448 /* abnormal shutdowns: GP faults */ 3447 /* abnormal shutdowns: GP faults */
3449 /* -------------------------------- */ 3448 /* -------------------------------- */