Mercurial > hg > xemacs-beta
diff src/doc.c @ 440:8de8e3f6228a r21-2-28
Import from CVS: tag r21-2-28
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:33:38 +0200 |
| parents | 3ecd8885ac67 |
| children | abe6d1db359e |
line wrap: on
line diff
--- a/src/doc.c Mon Aug 13 11:32:27 2007 +0200 +++ b/src/doc.c Mon Aug 13 11:33:38 2007 +0200 @@ -138,7 +138,7 @@ } /* #### 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 */ @@ -284,7 +284,7 @@ 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); @@ -573,8 +573,7 @@ { /* 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 @@ -640,7 +639,7 @@ 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)); @@ -684,7 +683,7 @@ } 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 @@ -886,7 +885,7 @@ 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_;