Mercurial > hg > xemacs-beta
diff src/doc.c @ 412:697ef44129c6 r21-2-14
Import from CVS: tag r21-2-14
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:20:41 +0200 |
| parents | 74fd4e045ea6 |
| children |
line wrap: on
line diff
--- a/src/doc.c Mon Aug 13 11:19:22 2007 +0200 +++ b/src/doc.c Mon Aug 13 11:20:41 2007 +0200 @@ -138,7 +138,7 @@ } /* #### mrb: following STILL completely broken */ - return_me = make_ext_string ((Bufbyte *) buffer, to - buffer, Qbinary); + return_me = make_ext_string ((Bufbyte *) buffer, to - buffer, FORMAT_BINARY); done: if (buffer != buf) /* We must have allocated buffer above */ @@ -284,7 +284,7 @@ else if (COMPILED_FUNCTIONP (fun)) { Lisp_Object tem; - Lisp_Compiled_Function *f = XCOMPILED_FUNCTION (fun); + struct 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,7 +573,8 @@ { /* Compiled-Function objects sometimes have slots for it. */ - Lisp_Compiled_Function *f = XCOMPILED_FUNCTION (fun); + struct Lisp_Compiled_Function *f = + XCOMPILED_FUNCTION (fun); /* This compiled-function object must have a slot for the docstring, since we've found a @@ -639,7 +640,7 @@ kludgily_ignore_lost_doc_p (Lisp_Object sym) { # define kludge_prefix "ad-Orig-" - Lisp_String *name = XSYMBOL (sym)->name; + struct 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)); @@ -683,7 +684,7 @@ } else if (COMPILED_FUNCTIONP (fun)) { - Lisp_Compiled_Function *f = XCOMPILED_FUNCTION (fun); + struct Lisp_Compiled_Function *f = XCOMPILED_FUNCTION (fun); if (! (f->flags.documentationp)) doc = -1; else @@ -885,7 +886,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_;