Mercurial > emacs
changeset 9923:9335098bf215
(print): Use new overlay substructure.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 15 Nov 1994 02:03:35 +0000 |
| parents | f653d8aac66a |
| children | 594e838f4567 |
| files | src/print.c |
| diffstat | 1 files changed, 16 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/src/print.c Tue Nov 15 02:02:34 1994 +0000 +++ b/src/print.c Tue Nov 15 02:03:35 1994 +0000 @@ -997,27 +997,27 @@ 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: