Commit 777aaffc authored by Karl Heuer's avatar Karl Heuer
Browse files

(print): Check the substructure.

parent 7f064f5c
...@@ -980,18 +980,26 @@ print (obj, printcharfun, escapeflag) ...@@ -980,18 +980,26 @@ print (obj, printcharfun, escapeflag)
break; break;
#endif /* MULTI_FRAME */ #endif /* MULTI_FRAME */
case Lisp_Marker: case Lisp_Misc:
strout ("#<marker ", -1, printcharfun); switch (XMISC (obj)->type)
if (!(XMARKER (obj)->buffer))
strout ("in no buffer", -1, printcharfun);
else
{ {
sprintf (buf, "at %d", marker_position (obj)); case Lisp_Misc_Marker:
strout (buf, -1, printcharfun); strout ("#<marker ", -1, printcharfun);
strout (" in ", -1, printcharfun); if (!(XMARKER (obj)->buffer))
print_string (XMARKER (obj)->buffer->name, printcharfun); 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; break;
case Lisp_Overlay: case Lisp_Overlay:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment