From: Ricardo Wurmus <rekado@elephly.net>
Date: Wed, 26 Oct 2016 06:00:35 +0000 (-0700)
Subject: xwidget: Get title via asynchronous JavaScript.
X-Git-Tag: emacs-26.0.90~1425
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cc3b868fbf471b54491ed81f01f2235d50bb5fee;p=emacs.git

xwidget: Get title via asynchronous JavaScript.

* lisp/xwidget.el (xwidget-webkit-callback): Get document title
asynchronously.
---

diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index a252fd75d4b..133336533a8 100644
--- a/lisp/xwidget.el
+++ b/lisp/xwidget.el
@@ -194,13 +194,14 @@ XWIDGET instance, XWIDGET-EVENT-TYPE depends on the originating xwidget."
        "error: callback called for xwidget with dead buffer")
     (with-current-buffer (xwidget-buffer xwidget)
       (cond ((eq xwidget-event-type 'load-changed)
-             (xwidget-log "webkit finished loading: '%s'"
-                          (xwidget-webkit-get-title xwidget))
-             ;;TODO - check the native/internal scroll
-             ;;(xwidget-adjust-size-to-content xwidget)
-             (xwidget-webkit-adjust-size-dispatch) ;;TODO xwidget arg
-             (rename-buffer (format "*xwidget webkit: %s *"
-                                    (xwidget-webkit-get-title xwidget)))
+             (xwidget-webkit-execute-script
+              xwidget "document.title"
+              (lambda (title)
+                (xwidget-log "webkit finished loading: '%s'" title)
+                ;;TODO - check the native/internal scroll
+                ;;(xwidget-adjust-size-to-content xwidget)
+                (xwidget-webkit-adjust-size-dispatch) ;;TODO xwidget arg
+                (rename-buffer (format "*xwidget webkit: %s *" title))))
              (pop-to-buffer (current-buffer)))
             ((eq xwidget-event-type 'decide-policy)
              (let ((strarg  (nth 3 last-input-event)))