diff options
| author | Po Lu | 2021-11-17 09:10:10 +0800 |
|---|---|---|
| committer | Po Lu | 2021-11-17 09:10:10 +0800 |
| commit | 2a99138f1766c23cfdbbc86ea5c277b0fbeed7e2 (patch) | |
| tree | 6e075de4dacaf3434cb2cc0632515de48adb33ac | |
| parent | 058c012f73d4abe014ace44b46c23babd48aebbc (diff) | |
| download | emacs-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.el | 6 |
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) |