diff src/doc.c @ 70:131b0175ea99 r20-0b30

Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 441bb1e64a06
children c7528f8e288d
line wrap: on
line diff
--- a/src/doc.c	Mon Aug 13 09:00:04 2007 +0200
+++ b/src/doc.c	Mon Aug 13 09:02:59 2007 +0200
@@ -155,7 +155,7 @@
             case '_': *to++ = '\037'; break;
             default:
               return_me = list2 (build_string
-	("Invalid data in documentation file -- ^A followed by weird code"),
+      ("Invalid data in documentation file -- ^A followed by weird code"),
                                  make_int (c));
               goto done;
             }
@@ -180,7 +180,7 @@
 /* Extract a doc string from a file.  FILEPOS says where to get it.
    (This could actually be byte code instructions/constants instead
    of a doc string.)
-   If it is an integer, use that position in the standard DOC file.
+   If it is an integer, use that position in the standard DOC-... file.
    If it is (FILE . INTEGER), use FILE as the file name
    and INTEGER as the position in that file.
    But if INTEGER is negative, make it positive.
@@ -255,7 +255,7 @@
 
 	  fd = open (name_nonreloc, O_RDONLY, 0);
 	}
-#endif /* CANNOT_DUMP */
+#endif /* CANNOT DUMP */
 
       if (fd < 0)
 	error ("Cannot open doc string file \"%s\"",
@@ -421,10 +421,9 @@
 static void
 weird_doc (Lisp_Object sym, CONST char *weirdness, CONST char *type, int pos)
 {
-/*#if defined(ENERGIZE) || defined(SUNPRO)*/	/* hide kludgery... */
-						/* (for everyone) */
+#if defined(ENERGIZE) || defined(SUNPRO) /* hide kludgery... */
   if (!strcmp (weirdness, GETTEXT ("duplicate"))) return;
-/*#endif*/
+#endif
   message ("Note: Strange doc (%s) for %s %s @ %d",
            weirdness, type, string_data (XSYMBOL (sym)->name), pos);
 }