From: Po Lu <luangruo@yahoo.com>
Date: Sat, 6 Nov 2021 05:58:52 +0000 (+0800)
Subject: Make xwidgets print nicer
X-Git-Tag: emacs-29.0.90~3671^2~129
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cd1f02e1e39c187f795f7b09aa5baee22f5b058d;p=emacs.git

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