Mercurial > emacs
comparison src/print.c @ 11241:5fed07fb66fb
(print): Use XMISCTYPE.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 07 Apr 1995 05:20:19 +0000 |
parents | e6bdaaa6ce1b |
children | e0f3fa4e7bf3 |
comparison
equal
deleted
inserted
replaced
11240:2642924d2d21 | 11241:5fed07fb66fb |
---|---|
985 } | 985 } |
986 break; | 986 break; |
987 | 987 |
988 #ifndef standalone | 988 #ifndef standalone |
989 case Lisp_Misc: | 989 case Lisp_Misc: |
990 switch (XMISC (obj)->type) | 990 switch (XMISCTYPE (obj)) |
991 { | 991 { |
992 case Lisp_Misc_Marker: | 992 case Lisp_Misc_Marker: |
993 strout ("#<marker ", -1, printcharfun); | 993 strout ("#<marker ", -1, printcharfun); |
994 if (!(XMARKER (obj)->buffer)) | 994 if (!(XMARKER (obj)->buffer)) |
995 strout ("in no buffer", -1, printcharfun); | 995 strout ("in no buffer", -1, printcharfun); |
1089 { | 1089 { |
1090 /* We're in trouble if this happens! | 1090 /* We're in trouble if this happens! |
1091 Probably should just abort () */ | 1091 Probably should just abort () */ |
1092 strout ("#<EMACS BUG: INVALID DATATYPE ", -1, printcharfun); | 1092 strout ("#<EMACS BUG: INVALID DATATYPE ", -1, printcharfun); |
1093 if (MISCP (obj)) | 1093 if (MISCP (obj)) |
1094 sprintf (buf, "(MISC 0x%04x)", (int) XMISC (obj)->type); | 1094 sprintf (buf, "(MISC 0x%04x)", (int) XMISCTYPE (obj)); |
1095 else if (VECTORLIKEP (obj)) | 1095 else if (VECTORLIKEP (obj)) |
1096 sprintf (buf, "(PVEC 0x%08x)", (int) XVECTOR (obj)->size); | 1096 sprintf (buf, "(PVEC 0x%08x)", (int) XVECTOR (obj)->size); |
1097 else | 1097 else |
1098 sprintf (buf, "(0x%02x)", (int) XTYPE (obj)); | 1098 sprintf (buf, "(0x%02x)", (int) XTYPE (obj)); |
1099 strout (buf, -1, printcharfun); | 1099 strout (buf, -1, printcharfun); |