Mercurial > hg > xemacs-beta

comparison src/data.c @ 179:9ad43877534d r20-3b16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b16
author cvs
date Mon, 13 Aug 2007 09:52:19 +0200
parents 2d532a89d707
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
178:e703507b8a00 179:9ad43877534d
928 `interactive' and whose second element is the interactive spec. 928 `interactive' and whose second element is the interactive spec.
929 */ 929 */
930 (function)) 930 (function))
931 { 931 {
932 CHECK_COMPILED_FUNCTION (function); 932 CHECK_COMPILED_FUNCTION (function);
933 if (!XCOMPILED_FUNCTION (function)->flags.interactivep) 933 return XCOMPILED_FUNCTION (function)->flags.interactivep
934 return Qnil; 934 ? list2 (Qinteractive,
935 return (list2 (Qinteractive, 935 compiled_function_interactive (XCOMPILED_FUNCTION (function)))
936 compiled_function_interactive 936 : Qnil;
937 (XCOMPILED_FUNCTION (function))));
938 } 937 }
939 938
940 DEFUN ("compiled-function-doc-string", Fcompiled_function_doc_string, 1, 1, 0, /* 939 DEFUN ("compiled-function-doc-string", Fcompiled_function_doc_string, 1, 1, 0, /*
941 Return the doc string of the compiled-function object, if available. 940 Return the doc string of the compiled-function object, if available.
942 Functions that had their doc strings snarfed into the DOC file will have 941 Functions that had their doc strings snarfed into the DOC file will have
943 an integer returned instead of a string. 942 an integer returned instead of a string.
944 */ 943 */
945 (function)) 944 (function))
946 { 945 {
947 CHECK_COMPILED_FUNCTION (function); 946 CHECK_COMPILED_FUNCTION (function);
948
949 return compiled_function_documentation (XCOMPILED_FUNCTION (function)); 947 return compiled_function_documentation (XCOMPILED_FUNCTION (function));
950 } 948 }
951 949
952 #ifdef COMPILED_FUNCTION_ANNOTATION_HACK 950 #ifdef COMPILED_FUNCTION_ANNOTATION_HACK
953 951
973 This is only meaningful if I18N3 was enabled when emacs was compiled. 971 This is only meaningful if I18N3 was enabled when emacs was compiled.
974 */ 972 */
975 (function)) 973 (function))
976 { 974 {
977 CHECK_COMPILED_FUNCTION (function); 975 CHECK_COMPILED_FUNCTION (function);
978 if (!XCOMPILED_FUNCTION (function)->flags.domainp) 976 return XCOMPILED_FUNCTION (function)->flags.domainp
979 return Qnil; 977 ? compiled_function_domain (XCOMPILED_FUNCTION (function))
980 return compiled_function_domain (XCOMPILED_FUNCTION (function)); 978 : Qnil;
981 } 979 }
982 980
983 981
984 /**********************************************************************/ 982 /**********************************************************************/
985 /* Arithmetic functions */ 983 /* Arithmetic functions */