Make xwidgets print nicer

* src/print.c (print_vectorlike): Print xwidgets with ID and widget
pointer, and print xwidget views separately.

diff --git a/src/print.c b/src/print.c
index c13294c8e62323bd5d8ab903b7160d23bb759d6a..eca389158f9e90a5496dd39042cb6d6ca969346f 100644 (file)
--- 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;