diff options
| author | Richard M. Stallman | 1995-04-07 05:20:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-04-07 05:20:19 +0000 |
| commit | 5db20f083105f2787515d091c968ba90a5e82c99 (patch) | |
| tree | ecbe1acd190d10c5ef467f621b25673f8eb30da9 /src | |
| parent | 81d1fba6c9224cc3aa6636bfc9779381811270e1 (diff) | |
| download | emacs-5db20f083105f2787515d091c968ba90a5e82c99.tar.gz emacs-5db20f083105f2787515d091c968ba90a5e82c99.zip | |
(print): Use XMISCTYPE.
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 |