[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 890fd77: Add a user command to stop page loading in xwidget-webki
From: |
Po Lu |
Subject: |
master 890fd77: Add a user command to stop page loading in xwidget-webkit |
Date: |
Sun, 21 Nov 2021 00:33:10 -0500 (EST) |
branch: master
commit 890fd7760c5f709feb5a0533ebe89a6fec5709a8
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
Add a user command to stop page loading in xwidget-webkit
* lisp/xwidget.el: Add `xwidget-webkit-stop' to menu.
(xwidget-webkit-stop): New command.
(xwidget-webkit-tool-bar-map): New tool bar item.
---
lisp/xwidget.el | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index 5b465da..160da67 100644
--- a/lisp/xwidget.el
+++ b/lisp/xwidget.el
@@ -59,6 +59,7 @@
(declare-function xwidget-webkit-estimated-load-progress "xwidget.c" (xwidget))
(declare-function xwidget-webkit-set-cookie-storage-file "xwidget.c" (xwidget
file))
(declare-function xwidget-live-p "xwidget.c" (xwidget))
+(declare-function xwidget-webkit-stop-loading "xwidget.c" (xwidget))
(defgroup xwidget nil
"Displaying native widgets in Emacs buffers."
@@ -256,11 +257,17 @@ for the actual events that will be sent."
:help "Save the browser's selection in the kill ring"]
["Incremental Search" xwidget-webkit-isearch-mode
:active (not xwidget-webkit-isearch-mode)
- :help "Perform incremental search inside the WebKit widget"]))
+ :help "Perform incremental search inside the WebKit widget"]
+ ["Stop Loading" xwidget-webkit-stop
+ :active xwidget-webkit--loading-p]))
(defvar xwidget-webkit-tool-bar-map
(let ((map (make-sparse-keymap)))
(prog1 map
+ (tool-bar-local-item-from-menu 'xwidget-webkit-stop
+ "cancel"
+ map
+ xwidget-webkit-mode-map)
(tool-bar-local-item-from-menu 'xwidget-webkit-back
"left-arrow"
map
@@ -561,6 +568,10 @@ The latter might be nil."
(let ((size (xwidget-size-request xw)))
(xwidget-resize xw (car size) (cadr size))))
+(defun xwidget-webkit-stop ()
+ "Stop trying to load the current page."
+ (interactive)
+ (xwidget-webkit-stop-loading (xwidget-webkit-current-session)))
(defvar xwidget-webkit-activeelement-js"
function findactiveelement(doc){
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 890fd77: Add a user command to stop page loading in xwidget-webkit,
Po Lu <=