Mercurial > emacs
changeset 9440:5d7438b61dd5
(print): Check the substructure.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 11 Oct 1994 07:46:50 +0000 |
| parents | 539e7fe905ff |
| children | ab020bbb761f |
| files | src/print.c |
| diffstat | 1 files changed, 18 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/src/print.c Tue Oct 11 07:46:34 1994 +0000 +++ b/src/print.c Tue Oct 11 07:46:50 1994 +0000 @@ -980,18 +980,26 @@ break; #endif /* MULTI_FRAME */ - case Lisp_Marker: - strout ("#<marker ", -1, printcharfun); - if (!(XMARKER (obj)->buffer)) - strout ("in no buffer", -1, printcharfun); - else + case Lisp_Misc: + switch (XMISC (obj)->type) { - sprintf (buf, "at %d", marker_position (obj)); - strout (buf, -1, printcharfun); - strout (" in ", -1, printcharfun); - print_string (XMARKER (obj)->buffer->name, printcharfun); + case Lisp_Misc_Marker: + strout ("#<marker ", -1, printcharfun); + if (!(XMARKER (obj)->buffer)) + strout ("in no buffer", -1, printcharfun); + else + { + sprintf (buf, "at %d", marker_position (obj)); + strout (buf, -1, printcharfun); + strout (" in ", -1, printcharfun); + print_string (XMARKER (obj)->buffer->name, printcharfun); + } + PRINTCHAR ('>'); + break; + + default: + abort (); } - PRINTCHAR ('>'); break; case Lisp_Overlay: