[Emacs-diffs] master 8809002 09/16: xwidget: Get URL asynchronously.

[Paul Eggert]

branch: master
commit 8809002052c1154d38ce392198525945da674777
Author: Ricardo Wurmus <address@hidden>
Commit: Paul Eggert <address@hidden>

    xwidget: Get URL asynchronously.
    
    * lisp/xwidget.el (xwidget-webkit-current-url): Kill URL in callback.
---
 lisp/xwidget.el |   10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index dc31b85..37edd52 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.