Mercurial > hg > xemacs-beta
diff src/doc.c @ 398:74fd4e045ea6 r21-2-29
Import from CVS: tag r21-2-29
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:13:30 +0200 |
| parents | 8626e4521993 |
| children | 697ef44129c6 |
line wrap: on
line diff
--- a/src/doc.c Mon Aug 13 11:12:06 2007 +0200 +++ b/src/doc.c Mon Aug 13 11:13:30 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); @@ -392,7 +392,7 @@ } 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", @@ -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_;