upstream

[gnu-emacs] / src / print.c

diff --git a/src/print.c b/src/print.c
index dac7a79d599e7f3a1479e3c067cbd9cb1f01f47b..c5c03274f77e636564c3082c0301a09ed6143241 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -36,7 +36,9 @@ along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
 #include "blockinput.h"
 #include "termhooks.h"         /* For struct terminal.  */
 #include "font.h"
-
+#ifdef HAVE_XWIDGETS
+#include "xwidget.h"
+#endif
 Lisp_Object Qstandard_output;
 
 static Lisp_Object Qtemp_buffer_setup_hook;
@@ -1763,6 +1765,13 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag
          strout (XSUBR (obj)->symbol_name, -1, -1, printcharfun);
          PRINTCHAR ('>');
        }
+#ifdef HAVE_XWIDGETS
+      else if (XXWIDGETP (obj))
+       {
+         strout ("#<xwidget ", -1, -1, printcharfun);
+         PRINTCHAR ('>');
+       }
+#endif      
       else if (WINDOWP (obj))
        {
          strout ("#<window ", -1, -1, printcharfun);