diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/print.c | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/src/print.c b/src/print.c index 989ad9f2546..b07b770dadd 100644 --- a/src/print.c +++ b/src/print.c | |||
| @@ -997,27 +997,27 @@ print (obj, printcharfun, escapeflag) | |||
| 997 | PRINTCHAR ('>'); | 997 | PRINTCHAR ('>'); |
| 998 | break; | 998 | break; |
| 999 | 999 | ||
| 1000 | case Lisp_Misc_Overlay: | ||
| 1001 | strout ("#<overlay ", -1, printcharfun); | ||
| 1002 | if (!(XMARKER (OVERLAY_START (obj))->buffer)) | ||
| 1003 | strout ("in no buffer", -1, printcharfun); | ||
| 1004 | else | ||
| 1005 | { | ||
| 1006 | sprintf (buf, "from %d to %d in ", | ||
| 1007 | marker_position (OVERLAY_START (obj)), | ||
| 1008 | marker_position (OVERLAY_END (obj))); | ||
| 1009 | strout (buf, -1, printcharfun); | ||
| 1010 | print_string (XMARKER (OVERLAY_START (obj))->buffer->name, | ||
| 1011 | printcharfun); | ||
| 1012 | } | ||
| 1013 | PRINTCHAR ('>'); | ||
| 1014 | break; | ||
| 1015 | |||
| 1000 | default: | 1016 | default: |
| 1001 | abort (); | 1017 | abort (); |
| 1002 | } | 1018 | } |
| 1003 | break; | 1019 | break; |
| 1004 | 1020 | ||
| 1005 | case Lisp_Overlay: | ||
| 1006 | strout ("#<overlay ", -1, printcharfun); | ||
| 1007 | if (!(XMARKER (OVERLAY_START (obj))->buffer)) | ||
| 1008 | strout ("in no buffer", -1, printcharfun); | ||
| 1009 | else | ||
| 1010 | { | ||
| 1011 | sprintf (buf, "from %d to %d in ", | ||
| 1012 | marker_position (OVERLAY_START (obj)), | ||
| 1013 | marker_position (OVERLAY_END (obj))); | ||
| 1014 | strout (buf, -1, printcharfun); | ||
| 1015 | print_string (XMARKER (OVERLAY_START (obj))->buffer->name, | ||
| 1016 | printcharfun); | ||
| 1017 | } | ||
| 1018 | PRINTCHAR ('>'); | ||
| 1019 | break; | ||
| 1020 | |||
| 1021 | #endif /* standalone */ | 1021 | #endif /* standalone */ |
| 1022 | 1022 | ||
| 1023 | case Lisp_Subr: | 1023 | case Lisp_Subr: |