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); |