Mercurial > hg > xemacs-beta
diff src/print.c @ 185:3d6bfa290dbd r20-3b19
Import from CVS: tag r20-3b19
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:55:28 +0200 |
parents | e121b013d1f0 |
children | b405438285a2 |
line wrap: on
line diff
--- a/src/print.c Mon Aug 13 09:54:24 2007 +0200 +++ b/src/print.c Mon Aug 13 09:55:28 2007 +0200 @@ -928,14 +928,14 @@ switch (XTYPE (obj)) { - case Lisp_Int: + case Lisp_Type_Int: { sprintf (buf, "%ld", (long) XINT (obj)); write_c_string (buf, printcharfun); break; } - case Lisp_Char: + case Lisp_Type_Char: { /* God intended that this be #\..., you know. */ Emchar ch = XCHAR (obj); @@ -974,7 +974,7 @@ break; } - case Lisp_String: + case Lisp_Type_String: { Bytecount size = XSTRING_LENGTH (obj); struct gcpro gcpro1, gcpro2; @@ -1041,7 +1041,7 @@ break; } - case Lisp_Cons: + case Lisp_Type_Cons: { struct gcpro gcpro1, gcpro2; @@ -1104,7 +1104,7 @@ } #ifndef LRECORD_VECTOR - case Lisp_Vector: + case Lisp_Type_Vector: { /* If deeper than spec'd depth, print placeholder. */ if (INTP (Vprint_level) @@ -1121,14 +1121,14 @@ #endif /* !LRECORD_VECTOR */ #ifndef LRECORD_SYMBOL - case Lisp_Symbol: + case Lisp_Type_Symbol: { print_symbol (obj, printcharfun, escapeflag); break; } #endif /* !LRECORD_SYMBOL */ - case Lisp_Record: + case Lisp_Type_Record: { struct lrecord_header *lheader = XRECORD_LHEADER (obj); struct gcpro gcpro1, gcpro2; @@ -1640,8 +1640,8 @@ After that comes an integer precision specification, and then a letter which controls the format. The letters allowed are `e', `f' and `g'. -Use `e' for exponential notation \"DIG.DIGITSeEXPT\" -Use `f' for decimal point notation \"DIGITS.DIGITS\". +Use `e' for exponential notation "DIG.DIGITSeEXPT" +Use `f' for decimal point notation "DIGITS.DIGITS". Use `g' to choose the shorter of those two formats for the number at hand. The precision in any of these cases is the number of digits following the decimal point. With `f', a precision of 0 means to omit the @@ -1697,7 +1697,7 @@ those which were made with `make-symbol' or by calling `intern' with a second argument. -When print-gensym is true, such symbols will be preceded by \"#:\", which +When print-gensym is true, such symbols will be preceded by "#:", which causes the reader to create a new symbol instead of interning and returning an existing one. Beware: the #: syntax creates a new symbol each time it is seen, so if you print an object which contains two pointers to the same