diff options
| author | Po Lu | 2021-11-06 13:58:52 +0800 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2021-11-07 02:59:41 +0100 |
| commit | cd1f02e1e39c187f795f7b09aa5baee22f5b058d (patch) | |
| tree | 2596cb09c607cef5acc263fb71e5bc0db40f9396 /src | |
| parent | eb5a079feed99379dacf8c6ced449a65e8069c4b (diff) | |
| download | emacs-cd1f02e1e39c187f795f7b09aa5baee22f5b058d.tar.gz emacs-cd1f02e1e39c187f795f7b09aa5baee22f5b058d.zip | |
Make xwidgets print nicer
* src/print.c (print_vectorlike): Print xwidgets with ID and widget
pointer, and print xwidget views separately.
Diffstat (limited to 'src')
| -rw-r--r-- | src/print.c | 16 |
1 files changed, 14 insertions, 2 deletions
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, | |||
| 1521 | printchar ('>', printcharfun); | 1521 | printchar ('>', printcharfun); |
| 1522 | break; | 1522 | break; |
| 1523 | 1523 | ||
| 1524 | case PVEC_XWIDGET: case PVEC_XWIDGET_VIEW: | 1524 | case PVEC_XWIDGET: |
| 1525 | print_c_string ("#<xwidget ", printcharfun); | 1525 | #ifdef HAVE_XWIDGETS |
| 1526 | { | ||
| 1527 | int len = sprintf (buf, "#<xwidget %u %p>", | ||
| 1528 | XXWIDGET (obj)->xwidget_id, | ||
| 1529 | XXWIDGET (obj)->widget_osr); | ||
| 1530 | strout (buf, len, len, printcharfun); | ||
| 1531 | break; | ||
| 1532 | } | ||
| 1533 | #else | ||
| 1534 | emacs_abort (); | ||
| 1535 | #endif | ||
| 1536 | case PVEC_XWIDGET_VIEW: | ||
| 1537 | print_c_string ("#<xwidget view", printcharfun); | ||
| 1526 | printchar ('>', printcharfun); | 1538 | printchar ('>', printcharfun); |
| 1527 | break; | 1539 | break; |
| 1528 | 1540 | ||