Mercurial > emacs

comparison src/print.c @ 11241:5fed07fb66fb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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);