diff options
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/src/print.c b/src/print.c index ba41e46454e..23901175de1 100644 --- a/src/print.c +++ b/src/print.c @@ -952,6 +952,23 @@ print (obj, printcharfun, escapeflag) } PRINTCHAR ('>'); break; + + case Lisp_Overlay: + strout ("#<overlay ", -1, printcharfun); + if (!(XMARKER (OVERLAY_START (obj))->buffer)) + strout ("in no buffer", -1, printcharfun); + else + { + sprintf (buf, "from %d to %d in ", + marker_position (OVERLAY_START (obj)), + marker_position (OVERLAY_END (obj))); + strout (buf, -1, printcharfun); + print_string (XMARKER (OVERLAY_START (obj))->buffer->name, + printcharfun); + } + PRINTCHAR ('>'); + break; + #endif /* standalone */ case Lisp_Subr: |