summaryrefslogtreecommitdiff
path: root/lisp/xwidget.el
diff options
context:
space:
mode:
authorPo Lu <luangruo@yahoo.com>2021-11-17 09:10:10 +0800
committerPo Lu <luangruo@yahoo.com>2021-11-17 09:10:10 +0800
commit2a99138f1766c23cfdbbc86ea5c277b0fbeed7e2 (patch)
tree6e075de4dacaf3434cb2cc0632515de48adb33ac /lisp/xwidget.el
parent058c012f73d4abe014ace44b46c23babd48aebbc (diff)
downloademacs-2a99138f1766c23cfdbbc86ea5c277b0fbeed7e2.tar.gz
Update xwidget webkit history buffer more eagerly
* lisp/xwidget.el (xwidget-webkit-callback): Update history buffer on each load-changed event.
Diffstat (limited to 'lisp/xwidget.el')
-rw-r--r--lisp/xwidget.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index c1d0cd66a93..37cf2e5816a 100644
--- a/lisp/xwidget.el
+++ b/lisp/xwidget.el
@@ -393,15 +393,15 @@ XWIDGET instance, XWIDGET-EVENT-TYPE depends on the originating xwidget."
(cond ((eq xwidget-event-type 'load-changed)
(let ((title (xwidget-webkit-title xwidget))
(uri (xwidget-webkit-uri xwidget)))
+ (when-let ((buffer (get-buffer "*Xwidget WebKit History*")))
+ (with-current-buffer buffer
+ (revert-buffer)))
;; This funciton will be called multi times, so only
;; change buffer name when the load actually completes
;; this can limit buffer-name flicker in mode-line.
(when (or (string-equal (nth 3 last-input-event)
"load-finished")
(> (length title) 0))
- (when-let ((buffer (get-buffer "*Xwidget WebKit History*")))
- (with-current-buffer buffer
- (revert-buffer)))
(with-current-buffer (xwidget-buffer xwidget)
(setq xwidget-webkit--title title)
(force-mode-line-update)