Mercurial > emacs
changeset 57961:7dd13ac27ed7
(print_object): Print Lisp_Misc_Save_Value objects.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Fri, 05 Nov 2004 22:46:17 +0000 |
| parents | 30f754d2119b |
| children | 47f8ff58e33e |
| files | src/print.c |
| diffstat | 1 files changed, 9 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/print.c Fri Nov 05 22:45:54 2004 +0000 +++ b/src/print.c Fri Nov 05 22:46:17 2004 +0000 @@ -2085,6 +2085,15 @@ PRINTCHAR ('>'); break; + case Lisp_Misc_Save_Value: + strout ("#<save_value ", -1, -1, printcharfun, 0); + sprintf(buf, "ptr=0x%08x int=%d", + (unsigned long) XSAVE_VALUE (obj)->pointer, + XSAVE_VALUE (obj)->integer); + strout (buf, -1, -1, printcharfun, 0); + PRINTCHAR ('>'); + break; + default: goto badtype; }