diff options
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 6 |
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/>. */ | |||
| 36 | #include "blockinput.h" | 36 | #include "blockinput.h" |
| 37 | #include "termhooks.h" /* For struct terminal. */ | 37 | #include "termhooks.h" /* For struct terminal. */ |
| 38 | #include "font.h" | 38 | #include "font.h" |
| 39 | #include "xwidget.h" | ||
| 39 | 40 | ||
| 40 | Lisp_Object Qstandard_output; | 41 | Lisp_Object Qstandard_output; |
| 41 | 42 | ||
| @@ -1755,6 +1756,11 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag | |||
| 1755 | strout (XSUBR (obj)->symbol_name, -1, -1, printcharfun); | 1756 | strout (XSUBR (obj)->symbol_name, -1, -1, printcharfun); |
| 1756 | PRINTCHAR ('>'); | 1757 | PRINTCHAR ('>'); |
| 1757 | } | 1758 | } |
| 1759 | else if (XXWIDGETP (obj)) | ||
| 1760 | { | ||
| 1761 | strout ("#<xwidget ", -1, -1, printcharfun); | ||
| 1762 | PRINTCHAR ('>'); | ||
| 1763 | } | ||
| 1758 | else if (WINDOWP (obj)) | 1764 | else if (WINDOWP (obj)) |
| 1759 | { | 1765 | { |
| 1760 | strout ("#<window ", -1, -1, printcharfun); | 1766 | strout ("#<window ", -1, -1, printcharfun); |