Mercurial > emacs
comparison src/print.c @ 106177:cb523092ddfd
* xterm.c (x_new_font):
* print.c (print_object):
* cmds.c (Fself_insert_command): Move declarations before statements.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Sat, 21 Nov 2009 02:33:45 +0000 |
parents | 8103235103a7 |
children | f2cea199b0c4 |
comparison
equal
deleted
inserted
replaced
106176:64f03bed7d67 | 106177:cb523092ddfd |
---|---|
2032 PRINTCHAR ('>'); | 2032 PRINTCHAR ('>'); |
2033 } | 2033 } |
2034 else if (HASH_TABLE_P (obj)) | 2034 else if (HASH_TABLE_P (obj)) |
2035 { | 2035 { |
2036 struct Lisp_Hash_Table *h = XHASH_TABLE (obj); | 2036 struct Lisp_Hash_Table *h = XHASH_TABLE (obj); |
2037 int i, real_size, size; | |
2037 #if 0 | 2038 #if 0 |
2038 strout ("#<hash-table", -1, -1, printcharfun, 0); | 2039 strout ("#<hash-table", -1, -1, printcharfun, 0); |
2039 if (SYMBOLP (h->test)) | 2040 if (SYMBOLP (h->test)) |
2040 { | 2041 { |
2041 PRINTCHAR (' '); | 2042 PRINTCHAR (' '); |
2084 } | 2085 } |
2085 | 2086 |
2086 strout (" data ", -1, -1, printcharfun, 0); | 2087 strout (" data ", -1, -1, printcharfun, 0); |
2087 | 2088 |
2088 /* Print the data here as a plist. */ | 2089 /* Print the data here as a plist. */ |
2089 int i; | 2090 real_size = HASH_TABLE_SIZE (h); |
2090 | 2091 size = real_size; |
2091 int real_size = HASH_TABLE_SIZE (h); | |
2092 int size = real_size; | |
2093 | 2092 |
2094 /* Don't print more elements than the specified maximum. */ | 2093 /* Don't print more elements than the specified maximum. */ |
2095 if (NATNUMP (Vprint_length) | 2094 if (NATNUMP (Vprint_length) |
2096 && XFASTINT (Vprint_length) < size) | 2095 && XFASTINT (Vprint_length) < size) |
2097 size = XFASTINT (Vprint_length); | 2096 size = XFASTINT (Vprint_length); |