diff options
| author | Kim F. Storm <storm@cua.dk> | 2004-11-05 22:46:17 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2004-11-05 22:46:17 +0000 |
| commit | c069fee4e7b565b51ca86de766d12e67424de338 (patch) | |
| tree | 0131cb556f5c3ca568f30b7e1c15197152ae8b78 /src/print.c | |
| parent | a8490886432cc6e7168cf2e0afa0e2b6f23cd756 (diff) | |
| download | emacs-c069fee4e7b565b51ca86de766d12e67424de338.tar.gz | |
(print_object): Print Lisp_Misc_Save_Value objects.
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/print.c b/src/print.c index 5a0f7fe6220..76c648b9a2e 100644 --- a/src/print.c +++ b/src/print.c @@ -2085,6 +2085,15 @@ print_object (obj, printcharfun, escapeflag) 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; } |