diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/xwidget.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/xwidget.el b/lisp/xwidget.el index 71b3de5ff38..3f20914f88c 100644 --- a/lisp/xwidget.el +++ b/lisp/xwidget.el | |||
| @@ -249,9 +249,13 @@ Argument STR string." | |||
| 249 | (field-value | 249 | (field-value |
| 250 | (progn | 250 | (progn |
| 251 | (xwidget-webkit-execute-script xww xwidget-webkit-activeelement-js) | 251 | (xwidget-webkit-execute-script xww xwidget-webkit-activeelement-js) |
| 252 | (xwidget-webkit-execute-script-rv xww "findactiveelement(document).value;" )))) | 252 | (xwidget-webkit-execute-script-rv xww "findactiveelement(document).value;" ))) |
| 253 | (field-type (xwidget-webkit-execute-script-rv xww "findactiveelement(document).type;" ))) | ||
| 253 | (list xww | 254 | (list xww |
| 254 | (read-string "string:" field-value)))) | 255 | (cond ( (equal "text" field-type) (read-string "text:" field-value)) |
| 256 | ( (equal "password" field-type) (read-passwd "password:" nil field-value)) | ||
| 257 | ( (equal "textarea" field-type) (read-textarea "textarea:" field-value)) | ||
| 258 | )))) | ||
| 255 | (xwidget-webkit-execute-script xw (format "findactiveelement(document).value='%s'" str))) | 259 | (xwidget-webkit-execute-script xw (format "findactiveelement(document).value='%s'" str))) |
| 256 | 260 | ||
| 257 | 261 | ||