Mercurial > hg > xemacs-beta

comparison src/print.c @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
1008 /* COMPILED_BYTECODE = 1 */ 1008 /* COMPILED_BYTECODE = 1 */
1009 write_char_internal (" ", printcharfun); 1009 write_char_internal (" ", printcharfun);
1010 /* we don't really want to see that junk in the bytecode instructions. */ 1010 /* we don't really want to see that junk in the bytecode instructions. */
1011 if (STRINGP (b->bytecodes) && !print_readably) 1011 if (STRINGP (b->bytecodes) && !print_readably)
1012 { 1012 {
1013 sprintf (buf, "\"...(%ld)\"", string_length (XSTRING (b->bytecodes))); 1013 sprintf (buf, "\"...(%ld)\"",
1014 (long) string_length (XSTRING (b->bytecodes)));
1014 write_c_string (buf, printcharfun); 1015 write_c_string (buf, printcharfun);
1015 } 1016 }
1016 else 1017 else
1017 print_internal (b->bytecodes, printcharfun, escapeflag); 1018 print_internal (b->bytecodes, printcharfun, escapeflag);
1018 /* COMPILED_CONSTANTS = 2 */ 1019 /* COMPILED_CONSTANTS = 2 */