diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/print.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/print.c b/src/print.c index 83db0d69782..7f8fd6daaa8 100644 --- a/src/print.c +++ b/src/print.c | |||
| @@ -987,7 +987,7 @@ print (obj, printcharfun, escapeflag) | |||
| 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); |
| @@ -1091,7 +1091,7 @@ print (obj, printcharfun, escapeflag) | |||
| 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 |