master cd1f02e 25/35: Make xwidgets print nicer

[Lars Ingebrigtsen]

branch: master
commit cd1f02e1e39c187f795f7b09aa5baee22f5b058d
Author: Po Lu <luangruo@yahoo.com>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make xwidgets print nicer
    
    * src/print.c (print_vectorlike): Print xwidgets with ID and widget
    pointer, and print xwidget views separately.
---
 src/print.c | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/src/print.c b/src/print.c
index c13294c..eca3891 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;