diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2016-10-25 23:00:35 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2016-10-25 23:07:13 -0700 |
| commit | 8809002052c1154d38ce392198525945da674777 (patch) | |
| tree | a37ade8d31c6e86b6256fa9a5aceceed4ed61357 /lisp/xwidget.el | |
| parent | 4aa7c4b4aa2cedbc401b624846285905fb9f8a43 (diff) | |
| download | emacs-8809002052c1154d38ce392198525945da674777.tar.gz | |
xwidget: Get URL asynchronously.
* lisp/xwidget.el (xwidget-webkit-current-url): Kill URL in callback.
Diffstat (limited to 'lisp/xwidget.el')
| -rw-r--r-- | lisp/xwidget.el | 10 |
1 files changed, 5 insertions, 5 deletions
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. |