cleanup xv init test, and introduce PVEC_XWIDGET

1 files changed, 6 insertions, 0 deletions

diff --git a/src/print.c b/src/print.c
index 14b4326bb6f..242bcb5b0d1 100644
--- a/src/print.c
+++ b/src/print.c
@@ -36,6 +36,7 @@ along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
 #include "blockinput.h"
 #include "termhooks.h"          /* For struct terminal.  */
 #include "font.h"
+#include "xwidget.h"
 
 Lisp_Object Qstandard_output;
 
@@ -1755,6 +1756,11 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag
           strout (XSUBR (obj)->symbol_name, -1, -1, printcharfun);
           PRINTCHAR ('>');
         }
+      else if (XXWIDGETP (obj))
+        {
+          strout ("#<xwidget ", -1, -1, printcharfun);
+          PRINTCHAR ('>');
+        }
       else if (WINDOWP (obj))
         {
           strout ("#<window ", -1, -1, printcharfun);