(print_object): Print Lisp_Misc_Save_Value objects.

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;
         }