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

(print): Check the substructure.

parent 7f064f5c
......@@ -980,7 +980,10 @@ print (obj, printcharfun, escapeflag)
break;
#endif /* MULTI_FRAME */
case Lisp_Marker:
case Lisp_Misc:
switch (XMISC (obj)->type)
{
case Lisp_Misc_Marker:
strout ("#<marker ", -1, printcharfun);
if (!(XMARKER (obj)->buffer))
strout ("in no buffer", -1, printcharfun);
......@@ -994,6 +997,11 @@ print (obj, printcharfun, escapeflag)
PRINTCHAR ('>');
break;
default:
abort ();
}
break;
case Lisp_Overlay:
strout ("#<overlay ", -1, printcharfun);
if (!(XMARKER (OVERLAY_START (obj))->buffer))
......
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