[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 8809002 09/16: xwidget: Get URL asynchronously.
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master 8809002 09/16: xwidget: Get URL asynchronously. |
Date: |
Wed, 26 Oct 2016 06:07:20 +0000 (UTC) |
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.
- [Emacs-diffs] master updated (1ea669d -> 5edf76b), Paul Eggert, 2016/10/26
- [Emacs-diffs] master 8809002 09/16: xwidget: Get URL asynchronously.,
Paul Eggert <=
- [Emacs-diffs] master 4aa7c4b 08/16: xwidget: Get selection with asynchronous JavaScript, Paul Eggert, 2016/10/26
- [Emacs-diffs] master cc3b868 05/16: xwidget: Get title via asynchronous JavaScript., Paul Eggert, 2016/10/26
- [Emacs-diffs] master ca479f9 15/16: xwidget: Map "previous-line" and "next-line" to scroll, Paul Eggert, 2016/10/26
- [Emacs-diffs] master 01c2fba 14/16: xwidget: Bind "beginning-of-buffer" and "end-of-buffer", Paul Eggert, 2016/10/26
- [Emacs-diffs] master 623deaf 02/16: xwidget: Pass JavaScript return value to optional callback procedure, Paul Eggert, 2016/10/26
- [Emacs-diffs] master ff80a9c 04/16: xwidget: Do not use `xwidget-execute-script-rv' to insert string, Paul Eggert, 2016/10/26
- [Emacs-diffs] master 7ee870e 03/16: Remove scrolled window container around WebKit widget, Paul Eggert, 2016/10/26
- [Emacs-diffs] master 67e0331 10/16: xwidget: Remove title hack., Paul Eggert, 2016/10/26
- [Emacs-diffs] master e443eab 13/16: Implement zoom for WebKit widget., Paul Eggert, 2016/10/26
- [Emacs-diffs] master d781662 01/16: xwidget: Use WebKit2 API, Paul Eggert, 2016/10/26