diff options
author | Grégoire Jadi <gregoire.jadi@gmail.com> | 2013-07-16 19:39:19 +0200 |
---|---|---|
committer | Grégoire Jadi <gregoire.jadi@gmail.com> | 2013-07-16 19:39:19 +0200 |
commit | aa61edd3095f082a2c717e67aeb9efe563e0cfc4 (patch) | |
tree | 458fef8e1da6d2d0b9821230a2f207f740ccee91 /src/xwidget.c | |
parent | bbc0bc1c25536a910c9a8021cc1f1395d1537923 (diff) | |
download | emacs-aa61edd3095f082a2c717e67aeb9efe563e0cfc4.tar.gz |
* src/xwidget.c (Fxwidget_view_model, Fxwidget_view_window): Add accessors
to xwidget_view components.
Diffstat (limited to 'src/xwidget.c')
-rw-r--r-- | src/xwidget.c | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/src/xwidget.c b/src/xwidget.c index 16678068c11..e716308e27f 100644 --- a/src/xwidget.c +++ b/src/xwidget.c @@ -1437,6 +1437,24 @@ DEFUN ("xwidget-view-info", Fxwidget_view_info , Sxwidget_view_info, 1, 1, 0, do return info; } +DEFUN ("xwidget-view-model", Fxwidget_view_model, Sxwidget_view_model, + 1, 1, 0, + doc: /* get xwidget view model */) + (Lisp_Object xwidget_view) +{ + CHECK_XWIDGET_VIEW (xwidget_view); + return XXWIDGET_VIEW (xwidget_view)->model; +} + +DEFUN ("xwidget-view-window", Fxwidget_view_window, Sxwidget_view_window, + 1, 1, 0, + doc: /* get xwidget view window */) + (Lisp_Object xwidget_view) +{ + CHECK_XWIDGET_VIEW (xwidget_view); + return XXWIDGET_VIEW (xwidget_view)->w; +} + DEFUN ("xwidget-send-keyboard-event", Fxwidget_send_keyboard_event, Sxwidget_send_keyboard_event, 2, 2, 0, doc:/* synthesize a kbd event for a xwidget. */ ) (Lisp_Object xwidget, Lisp_Object keydescriptor) @@ -1572,6 +1590,8 @@ syms_of_xwidget (void) defsubr (&Sxwidget_view_info); defsubr (&Sxwidget_resize); defsubr (&Sget_buffer_xwidgets); + defsubr (&Sxwidget_view_model); + defsubr (&Sxwidget_view_window); #ifdef HAVE_WEBKIT_OSR defsubr (&Sxwidget_webkit_goto_uri); |