diff options
| -rw-r--r-- | src/print.c | 28 |
1 files changed, 18 insertions, 10 deletions
diff --git a/src/print.c b/src/print.c index edac49aca97..989ad9f2546 100644 --- a/src/print.c +++ b/src/print.c @@ -980,18 +980,26 @@ print (obj, printcharfun, escapeflag) 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: |