Mercurial > emacs

comparison src/print.c @ 9440:5d7438b61dd5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(print): Check the substructure.
author Karl Heuer <kwzh@gnu.org>
date Tue, 11 Oct 1994 07:46:50 +0000
parents 58f6a917533b
children 9335098bf215
comparison
equal deleted inserted replaced
9439:539e7fe905ff 9440:5d7438b61dd5
978 strout (buf, -1, printcharfun); 978 strout (buf, -1, printcharfun);
979 strout (">", -1, printcharfun); 979 strout (">", -1, printcharfun);
980 break; 980 break;
981 #endif /* MULTI_FRAME */ 981 #endif /* MULTI_FRAME */
982 982
983 case Lisp_Marker: 983 case Lisp_Misc:
984 strout ("#<marker ", -1, printcharfun); 984 switch (XMISC (obj)->type)
985 if (!(XMARKER (obj)->buffer)) 985 {
986 strout ("in no buffer", -1, printcharfun); 986 case Lisp_Misc_Marker:
987 else 987 strout ("#<marker ", -1, printcharfun);
988 { 988 if (!(XMARKER (obj)->buffer))
989 sprintf (buf, "at %d", marker_position (obj)); 989 strout ("in no buffer", -1, printcharfun);
990 strout (buf, -1, printcharfun); 990 else
991 strout (" in ", -1, printcharfun); 991 {
992 print_string (XMARKER (obj)->buffer->name, printcharfun); 992 sprintf (buf, "at %d", marker_position (obj));
993 } 993 strout (buf, -1, printcharfun);
994 PRINTCHAR ('>'); 994 strout (" in ", -1, printcharfun);
995 print_string (XMARKER (obj)->buffer->name, printcharfun);
996 }
997 PRINTCHAR ('>');
998 break;
999
1000 default:
1001 abort ();
1002 }
995 break; 1003 break;
996 1004
997 case Lisp_Overlay: 1005 case Lisp_Overlay:
998 strout ("#<overlay ", -1, printcharfun); 1006 strout ("#<overlay ", -1, printcharfun);
999 if (!(XMARKER (OVERLAY_START (obj))->buffer)) 1007 if (!(XMARKER (OVERLAY_START (obj))->buffer))