Mercurial > hg > xemacs-beta
diff src/data.c @ 179:9ad43877534d r20-3b16
Import from CVS: tag r20-3b16
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:52:19 +0200 |
parents | 2d532a89d707 |
children | 3d6bfa290dbd |
line wrap: on
line diff
--- a/src/data.c Mon Aug 13 09:51:18 2007 +0200 +++ b/src/data.c Mon Aug 13 09:52:19 2007 +0200 @@ -930,11 +930,10 @@ (function)) { CHECK_COMPILED_FUNCTION (function); - if (!XCOMPILED_FUNCTION (function)->flags.interactivep) - return Qnil; - return (list2 (Qinteractive, - compiled_function_interactive - (XCOMPILED_FUNCTION (function)))); + return XCOMPILED_FUNCTION (function)->flags.interactivep + ? list2 (Qinteractive, + compiled_function_interactive (XCOMPILED_FUNCTION (function))) + : Qnil; } DEFUN ("compiled-function-doc-string", Fcompiled_function_doc_string, 1, 1, 0, /* @@ -945,7 +944,6 @@ (function)) { CHECK_COMPILED_FUNCTION (function); - return compiled_function_documentation (XCOMPILED_FUNCTION (function)); } @@ -975,9 +973,9 @@ (function)) { CHECK_COMPILED_FUNCTION (function); - if (!XCOMPILED_FUNCTION (function)->flags.domainp) - return Qnil; - return compiled_function_domain (XCOMPILED_FUNCTION (function)); + return XCOMPILED_FUNCTION (function)->flags.domainp + ? compiled_function_domain (XCOMPILED_FUNCTION (function)) + : Qnil; }