diff options
-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 989ad9f254..b07b770dad 100644 --- a/src/print.c +++ b/src/print.c @@ -997,27 +997,27 @@ print (obj, printcharfun, escapeflag) PRINTCHAR ('>'); break; + case Lisp_Misc_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; + default: abort (); } 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: |