1 files changed, 14 insertions, 2 deletions

diff --git a/src/print.c b/src/print.c
index c13294c8e62..eca389158f9 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1521,8 +1521,20 @@ print_vectorlike (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag,
       printchar ('>', printcharfun);
       break;
 
-    case PVEC_XWIDGET: case PVEC_XWIDGET_VIEW:
-      print_c_string ("#<xwidget ", printcharfun);
+    case PVEC_XWIDGET:
+#ifdef HAVE_XWIDGETS
+      {
+        int len = sprintf (buf, "#<xwidget %u %p>",
+                           XXWIDGET (obj)->xwidget_id,
+                           XXWIDGET (obj)->widget_osr);
+        strout (buf, len, len, printcharfun);
+        break;
+      }
+#else
+      emacs_abort ();
+#endif
+    case PVEC_XWIDGET_VIEW:
+      print_c_string ("#<xwidget view", printcharfun);
       printchar ('>', printcharfun);
       break;