diff options
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/print.c b/src/print.c index 269d8f250e2..4dd4e963093 100644 --- a/src/print.c +++ b/src/print.c | |||
| @@ -33,6 +33,10 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 33 | #include "intervals.h" | 33 | #include "intervals.h" |
| 34 | #include "blockinput.h" | 34 | #include "blockinput.h" |
| 35 | 35 | ||
| 36 | #ifdef HAVE_XWIDGETS | ||
| 37 | # include "xwidget.h" | ||
| 38 | #endif | ||
| 39 | |||
| 36 | #include <c-ctype.h> | 40 | #include <c-ctype.h> |
| 37 | #include <float.h> | 41 | #include <float.h> |
| 38 | #include <ftoastr.h> | 42 | #include <ftoastr.h> |
| @@ -1736,6 +1740,18 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag) | |||
| 1736 | print_c_string (XSUBR (obj)->symbol_name, printcharfun); | 1740 | print_c_string (XSUBR (obj)->symbol_name, printcharfun); |
| 1737 | printchar ('>', printcharfun); | 1741 | printchar ('>', printcharfun); |
| 1738 | } | 1742 | } |
| 1743 | #ifdef HAVE_XWIDGETS | ||
| 1744 | else if (XWIDGETP (obj)) | ||
| 1745 | { | ||
| 1746 | print_c_string ("#<xwidget ", printcharfun); | ||
| 1747 | printchar ('>', printcharfun); | ||
| 1748 | } | ||
| 1749 | else if (XWIDGET_VIEW_P (obj)) | ||
| 1750 | { | ||
| 1751 | print_c_string ("#<xwidget ", printcharfun); | ||
| 1752 | printchar ('>', printcharfun); | ||
| 1753 | } | ||
| 1754 | #endif | ||
| 1739 | else if (WINDOWP (obj)) | 1755 | else if (WINDOWP (obj)) |
| 1740 | { | 1756 | { |
| 1741 | int len = sprintf (buf, "#<window %"pI"d", | 1757 | int len = sprintf (buf, "#<window %"pI"d", |