diff options
| -rw-r--r-- | lisp/xwidget.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/xwidget.el b/lisp/xwidget.el index a252fd75d4b..133336533a8 100644 --- a/lisp/xwidget.el +++ b/lisp/xwidget.el | |||
| @@ -194,13 +194,14 @@ XWIDGET instance, XWIDGET-EVENT-TYPE depends on the originating xwidget." | |||
| 194 | "error: callback called for xwidget with dead buffer") | 194 | "error: callback called for xwidget with dead buffer") |
| 195 | (with-current-buffer (xwidget-buffer xwidget) | 195 | (with-current-buffer (xwidget-buffer xwidget) |
| 196 | (cond ((eq xwidget-event-type 'load-changed) | 196 | (cond ((eq xwidget-event-type 'load-changed) |
| 197 | (xwidget-log "webkit finished loading: '%s'" | 197 | (xwidget-webkit-execute-script |
| 198 | (xwidget-webkit-get-title xwidget)) | 198 | xwidget "document.title" |
| 199 | ;;TODO - check the native/internal scroll | 199 | (lambda (title) |
| 200 | ;;(xwidget-adjust-size-to-content xwidget) | 200 | (xwidget-log "webkit finished loading: '%s'" title) |
| 201 | (xwidget-webkit-adjust-size-dispatch) ;;TODO xwidget arg | 201 | ;;TODO - check the native/internal scroll |
| 202 | (rename-buffer (format "*xwidget webkit: %s *" | 202 | ;;(xwidget-adjust-size-to-content xwidget) |
| 203 | (xwidget-webkit-get-title xwidget))) | 203 | (xwidget-webkit-adjust-size-dispatch) ;;TODO xwidget arg |
| 204 | (rename-buffer (format "*xwidget webkit: %s *" title)))) | ||
| 204 | (pop-to-buffer (current-buffer))) | 205 | (pop-to-buffer (current-buffer))) |
| 205 | ((eq xwidget-event-type 'decide-policy) | 206 | ((eq xwidget-event-type 'decide-policy) |
| 206 | (let ((strarg (nth 3 last-input-event))) | 207 | (let ((strarg (nth 3 last-input-event))) |