diff options
| author | Karl Heuer <[email protected]> | 1994-11-15 02:03:35 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1994-11-15 02:03:35 +0000 |
| commit | 3e9bc90131b09b6820e6cebf003a0642b9c4eb97 (patch) | |
| tree | 72fcc1bbd78b5cdee50330de9ad7c7a651a71be3 /src/print.c | |
| parent | 48e2e3ba614e1ce32fd3e3400e3050886425c845 (diff) | |
(print): Use new overlay substructure.
Diffstat (limited to 'src/print.c')
| -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: |