Mercurial > hg > xemacs-beta
diff src/emacs.c @ 2268:61855263cb07
[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 |
line wrap: on
line diff
--- a/src/emacs.c Tue Sep 14 02:53:16 2004 +0000 +++ b/src/emacs.c Tue Sep 14 14:33:07 2004 +0000 @@ -2682,7 +2682,7 @@ return Fnreverse (plist); } -DEFUN ("run-emacs-from-temacs", Frun_emacs_from_temacs, 0, MANY, 0, /* +DEFUN_NORETURN ("run-emacs-from-temacs", Frun_emacs_from_temacs, 0, MANY, 0, /* Do not call this. It will reinitialize your XEmacs. You'll be sorry. */ /* If this function is called from startup.el, it will be possible to run @@ -3374,7 +3374,7 @@ } #endif /* GNU_MALLOC */ -DEFUN ("kill-emacs", Fkill_emacs, 0, 1, "P", /* +DEFUN_NORETURN ("kill-emacs", Fkill_emacs, 0, 1, "P", /* Exit the XEmacs job and kill it. Ask for confirmation, without argument. If ARG is an integer, return ARG as the exit program code. If ARG is a string, stuff it as keyboard input. @@ -3440,8 +3440,7 @@ #endif exit (INTP (arg) ? XINT (arg) : 0); - /* NOTREACHED */ - return Qnil; /* I'm sick of the compiler warning */ + RETURN_NOT_REACHED (Qnil); } /* -------------------------------- */