837 |
if (INTEGERP (documentation) && XINT (documentation) < 0) |
if (INTEGERP (documentation) && XINT (documentation) < 0) |
838 |
return Qt; |
return Qt; |
839 |
if (STRINGP (documentation) |
if (STRINGP (documentation) |
840 |
&& ((unsigned char) XSTRING (documentation)->data[0] == '*')) |
&& ((unsigned char) SREF (documentation, 0) == '*')) |
841 |
return Qt; |
return Qt; |
842 |
/* If it is (STRING . INTEGER), a negative integer means a user variable. */ |
/* If it is (STRING . INTEGER), a negative integer means a user variable. */ |
843 |
if (CONSP (documentation) |
if (CONSP (documentation) |
1554 |
data = Fcons (error_symbol, data); |
data = Fcons (error_symbol, data); |
1555 |
|
|
1556 |
string = Ferror_message_string (data); |
string = Ferror_message_string (data); |
1557 |
fatal ("%s", XSTRING (string)->data, 0); |
fatal ("%s", SDATA (string), 0); |
1558 |
} |
} |
1559 |
|
|
1560 |
/* Return nonzero iff LIST is a non-nil atom or |
/* Return nonzero iff LIST is a non-nil atom or |
1920 |
of what files are preloaded and when. */ |
of what files are preloaded and when. */ |
1921 |
if (! NILP (Vpurify_flag)) |
if (! NILP (Vpurify_flag)) |
1922 |
error ("Attempt to autoload %s while preparing to dump", |
error ("Attempt to autoload %s while preparing to dump", |
1923 |
XSTRING (SYMBOL_NAME (funname))->data); |
SDATA (SYMBOL_NAME (funname))); |
1924 |
|
|
1925 |
fun = funname; |
fun = funname; |
1926 |
CHECK_SYMBOL (funname); |
CHECK_SYMBOL (funname); |
1959 |
|
|
1960 |
if (!NILP (Fequal (fun, fundef))) |
if (!NILP (Fequal (fun, fundef))) |
1961 |
error ("Autoloading failed to define function %s", |
error ("Autoloading failed to define function %s", |
1962 |
XSTRING (SYMBOL_NAME (funname))->data); |
SDATA (SYMBOL_NAME (funname))); |
1963 |
UNGCPRO; |
UNGCPRO; |
1964 |
} |
} |
1965 |
|
|
2938 |
{ |
{ |
2939 |
tem = AREF (object, COMPILED_BYTECODE); |
tem = AREF (object, COMPILED_BYTECODE); |
2940 |
if (CONSP (tem) && STRINGP (XCAR (tem))) |
if (CONSP (tem) && STRINGP (XCAR (tem))) |
2941 |
error ("Invalid byte code in %s", XSTRING (XCAR (tem))->data); |
error ("Invalid byte code in %s", SDATA (XCAR (tem))); |
2942 |
else |
else |
2943 |
error ("Invalid byte code"); |
error ("Invalid byte code"); |
2944 |
} |
} |