From: Kim F. Storm <storm@cua.dk>
Date: Fri, 5 Nov 2004 22:46:17 +0000 (+0000)
Subject: (print_object): Print Lisp_Misc_Save_Value objects.
X-Git-Tag: ttn-vms-21-2-B4~4171
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c069fee4e7b565b51ca86de766d12e67424de338;p=emacs.git

(print_object): Print Lisp_Misc_Save_Value objects.
---

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