From: Grégoire Jadi <gregoire.jadi@gmail.com>
Date: Tue, 16 Jul 2013 17:39:19 +0000 (+0200)
Subject: * src/xwidget.c (Fxwidget_view_model, Fxwidget_view_window): Add accessors
X-Git-Tag: emacs-25.0.90~2888
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa61edd3095f082a2c717e67aeb9efe563e0cfc4;p=emacs.git

* src/xwidget.c (Fxwidget_view_model, Fxwidget_view_window): Add accessors
to xwidget_view components.
---

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);