diff options
Diffstat (limited to 'lisp/xwidget.el')
| -rw-r--r-- | lisp/xwidget.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/xwidget.el b/lisp/xwidget.el index 97dbe11fed9..3b3aba4b98f 100644 --- a/lisp/xwidget.el +++ b/lisp/xwidget.el @@ -191,8 +191,14 @@ defaults to the string looking like a url around the cursor position." Argument XW webkit. Argument STR string." ;;TODO read out the string in the field first and provide for edit - (interactive (list (xwidget-webkit-current-session) - (read-string "string:"))) + (interactive + (let* ((xww (xwidget-webkit-current-session)) + (field-value + (progn + (xwidget-webkit-execute-script xww "document.title=document.activeElement.value;") + (xwidget-webkit-get-title xww)))) + (list xww + (read-string "string:" field-value)))) (xwidget-webkit-execute-script xw (format "document.activeElement.value='%s'" str))) (defun xwidget-webkit-adjust-size-to-content () |