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

xwidget: Get URL asynchronously.

* lisp/xwidget.el (xwidget-webkit-current-url): Kill URL in callback.
---

diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index dc31b850552..37edd5254ec 100644
--- a/lisp/xwidget.el
+++ b/lisp/xwidget.el
@@ -474,11 +474,11 @@ For example, use this to display an anchor."
 (defun xwidget-webkit-current-url ()
   "Get the webkit url and place it on the kill-ring."
   (interactive)
-  (let* ((rv (xwidget-webkit-execute-script-rv (xwidget-webkit-current-session)
-                                               "document.URL"))
-         (url (kill-new (or rv ""))))
-    (message "url: %s" url)
-    url))
+  (xwidget-webkit-execute-script
+   (xwidget-webkit-current-session)
+   "document.URL" (lambda (rv)
+                    (let ((url (kill-new (or rv ""))))
+                      (message "url: %s" url)))))
 
 (defun xwidget-webkit-execute-script-rv (xw script &optional default)
   "Same as `xwidget-webkit-execute-script' but with return value.