}
/* #### mrb: following STILL completely broken */
- return_me = make_ext_string ((Bufbyte *) buffer, to - buffer, FORMAT_BINARY);
+ return_me = make_ext_string ((Bufbyte *) buffer, to - buffer, Qbinary);
done:
if (buffer != buf) /* We must have allocated buffer above */
else if (COMPILED_FUNCTIONP (fun))
{
Lisp_Object tem;
- struct Lisp_Compiled_Function *f = XCOMPILED_FUNCTION (fun);
+ Lisp_Compiled_Function *f = XCOMPILED_FUNCTION (fun);
if (! (f->flags.documentationp))
return Qnil;
tem = compiled_function_documentation (f);
}
\f
static void
-weird_doc (Lisp_Object sym, CONST char *weirdness, CONST char *type, int pos)
+weird_doc (Lisp_Object sym, const char *weirdness, const char *type, int pos)
{
if (!strcmp (weirdness, GETTEXT ("duplicate"))) return;
message ("Note: Strange doc (%s) for %s %s @ %d",
{
/* Compiled-Function objects sometimes have
slots for it. */
- struct Lisp_Compiled_Function *f =
- XCOMPILED_FUNCTION (fun);
+ Lisp_Compiled_Function *f = XCOMPILED_FUNCTION (fun);
/* This compiled-function object must have a
slot for the docstring, since we've found a
kludgily_ignore_lost_doc_p (Lisp_Object sym)
{
# define kludge_prefix "ad-Orig-"
- struct Lisp_String *name = XSYMBOL (sym)->name;
+ Lisp_String *name = XSYMBOL (sym)->name;
return (string_length (name) > (Bytecount) (sizeof (kludge_prefix)) &&
!strncmp ((char *) string_data (name), kludge_prefix,
sizeof (kludge_prefix) - 1));
}
else if (COMPILED_FUNCTIONP (fun))
{
- struct Lisp_Compiled_Function *f = XCOMPILED_FUNCTION (fun);
+ Lisp_Compiled_Function *f = XCOMPILED_FUNCTION (fun);
if (! (f->flags.documentationp))
doc = -1;
else
case '{':
case '<':
{
- /* ### jump to label `subst_string|subst' crosses
+ /* #### jump to label `subst_string|subst' crosses
initialization of `buffer|_buf' */
Lisp_Object buffer;
struct buffer *buf_;