diff options
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/src/print.c b/src/print.c index ccbf8d8c0c7..6d403e00fe0 100644 --- a/src/print.c +++ b/src/print.c | |||
| @@ -2267,70 +2267,6 @@ print_object (obj, printcharfun, escapeflag) | |||
| 2267 | strout ("#<misc free cell>", -1, -1, printcharfun, 0); | 2267 | strout ("#<misc free cell>", -1, -1, printcharfun, 0); |
| 2268 | break; | 2268 | break; |
| 2269 | 2269 | ||
| 2270 | case Lisp_Misc_Intfwd: | ||
| 2271 | sprintf (buf, "#<intfwd to %ld>", (long) *XINTFWD (obj)->intvar); | ||
| 2272 | strout (buf, -1, -1, printcharfun, 0); | ||
| 2273 | break; | ||
| 2274 | |||
| 2275 | case Lisp_Misc_Boolfwd: | ||
| 2276 | sprintf (buf, "#<boolfwd to %s>", | ||
| 2277 | (*XBOOLFWD (obj)->boolvar ? "t" : "nil")); | ||
| 2278 | strout (buf, -1, -1, printcharfun, 0); | ||
| 2279 | break; | ||
| 2280 | |||
| 2281 | case Lisp_Misc_Objfwd: | ||
| 2282 | strout ("#<objfwd to ", -1, -1, printcharfun, 0); | ||
| 2283 | print_object (*XOBJFWD (obj)->objvar, printcharfun, escapeflag); | ||
| 2284 | PRINTCHAR ('>'); | ||
| 2285 | break; | ||
| 2286 | |||
| 2287 | case Lisp_Misc_Buffer_Objfwd: | ||
| 2288 | strout ("#<buffer_objfwd to ", -1, -1, printcharfun, 0); | ||
| 2289 | print_object (PER_BUFFER_VALUE (current_buffer, | ||
| 2290 | XBUFFER_OBJFWD (obj)->offset), | ||
| 2291 | printcharfun, escapeflag); | ||
| 2292 | PRINTCHAR ('>'); | ||
| 2293 | break; | ||
| 2294 | |||
| 2295 | case Lisp_Misc_Kboard_Objfwd: | ||
| 2296 | strout ("#<kboard_objfwd to ", -1, -1, printcharfun, 0); | ||
| 2297 | print_object (*(Lisp_Object *) ((char *) current_kboard | ||
| 2298 | + XKBOARD_OBJFWD (obj)->offset), | ||
| 2299 | printcharfun, escapeflag); | ||
| 2300 | PRINTCHAR ('>'); | ||
| 2301 | break; | ||
| 2302 | |||
| 2303 | case Lisp_Misc_Buffer_Local_Value: | ||
| 2304 | strout ("#<buffer_local_value ", -1, -1, printcharfun, 0); | ||
| 2305 | if (XBUFFER_LOCAL_VALUE (obj)->local_if_set) | ||
| 2306 | strout ("[local-if-set] ", -1, -1, printcharfun, 0); | ||
| 2307 | strout ("[realvalue] ", -1, -1, printcharfun, 0); | ||
| 2308 | print_object (XBUFFER_LOCAL_VALUE (obj)->realvalue, | ||
| 2309 | printcharfun, escapeflag); | ||
| 2310 | if (XBUFFER_LOCAL_VALUE (obj)->found_for_buffer) | ||
| 2311 | strout ("[local in buffer] ", -1, -1, printcharfun, 0); | ||
| 2312 | else | ||
| 2313 | strout ("[buffer] ", -1, -1, printcharfun, 0); | ||
| 2314 | print_object (XBUFFER_LOCAL_VALUE (obj)->buffer, | ||
| 2315 | printcharfun, escapeflag); | ||
| 2316 | if (XBUFFER_LOCAL_VALUE (obj)->check_frame) | ||
| 2317 | { | ||
| 2318 | if (XBUFFER_LOCAL_VALUE (obj)->found_for_frame) | ||
| 2319 | strout ("[local in frame] ", -1, -1, printcharfun, 0); | ||
| 2320 | else | ||
| 2321 | strout ("[frame] ", -1, -1, printcharfun, 0); | ||
| 2322 | print_object (XBUFFER_LOCAL_VALUE (obj)->frame, | ||
| 2323 | printcharfun, escapeflag); | ||
| 2324 | } | ||
| 2325 | strout ("[alist-elt] ", -1, -1, printcharfun, 0); | ||
| 2326 | print_object (XCAR (XBUFFER_LOCAL_VALUE (obj)->cdr), | ||
| 2327 | printcharfun, escapeflag); | ||
| 2328 | strout ("[default-value] ", -1, -1, printcharfun, 0); | ||
| 2329 | print_object (XCDR (XBUFFER_LOCAL_VALUE (obj)->cdr), | ||
| 2330 | printcharfun, escapeflag); | ||
| 2331 | PRINTCHAR ('>'); | ||
| 2332 | break; | ||
| 2333 | |||
| 2334 | case Lisp_Misc_Save_Value: | 2270 | case Lisp_Misc_Save_Value: |
| 2335 | strout ("#<save_value ", -1, -1, printcharfun, 0); | 2271 | strout ("#<save_value ", -1, -1, printcharfun, 0); |
| 2336 | sprintf(buf, "ptr=0x%08lx int=%d", | 2272 | sprintf(buf, "ptr=0x%08lx int=%d", |