aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPo Lu2021-11-17 09:10:10 +0800
committerPo Lu2021-11-17 09:10:10 +0800
commit2a99138f1766c23cfdbbc86ea5c277b0fbeed7e2 (patch)
tree6e075de4dacaf3434cb2cc0632515de48adb33ac
parent058c012f73d4abe014ace44b46c23babd48aebbc (diff)
downloademacs-2a99138f1766c23cfdbbc86ea5c277b0fbeed7e2.tar.gz
emacs-2a99138f1766c23cfdbbc86ea5c277b0fbeed7e2.zip
Update xwidget webkit history buffer more eagerly
* lisp/xwidget.el (xwidget-webkit-callback): Update history buffer on each load-changed event.
-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."
393 (cond ((eq xwidget-event-type 'load-changed) 393 (cond ((eq xwidget-event-type 'load-changed)
394 (let ((title (xwidget-webkit-title xwidget)) 394 (let ((title (xwidget-webkit-title xwidget))
395 (uri (xwidget-webkit-uri xwidget))) 395 (uri (xwidget-webkit-uri xwidget)))
396 (when-let ((buffer (get-buffer "*Xwidget WebKit History*")))
397 (with-current-buffer buffer
398 (revert-buffer)))
396 ;; This funciton will be called multi times, so only 399 ;; This funciton will be called multi times, so only
397 ;; change buffer name when the load actually completes 400 ;; change buffer name when the load actually completes
398 ;; this can limit buffer-name flicker in mode-line. 401 ;; this can limit buffer-name flicker in mode-line.
399 (when (or (string-equal (nth 3 last-input-event) 402 (when (or (string-equal (nth 3 last-input-event)
400 "load-finished") 403 "load-finished")
401 (> (length title) 0)) 404 (> (length title) 0))
402 (when-let ((buffer (get-buffer "*Xwidget WebKit History*")))
403 (with-current-buffer buffer
404 (revert-buffer)))
405 (with-current-buffer (xwidget-buffer xwidget) 405 (with-current-buffer (xwidget-buffer xwidget)
406 (setq xwidget-webkit--title title) 406 (setq xwidget-webkit--title title)
407 (force-mode-line-update) 407 (force-mode-line-update)