aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--README.xwidget4
-rw-r--r--lisp/xwidget.el8
2 files changed, 10 insertions, 2 deletions
diff --git a/README.xwidget b/README.xwidget
index 0957c9136eb..2fdec89deb4 100644
--- a/README.xwidget
+++ b/README.xwidget
@@ -1495,3 +1495,7 @@ http://test
1495hook so anything can filter browser history. 1495hook so anything can filter browser history.
1496** TODO new relative url code sometimes fail 1496** TODO new relative url code sometimes fail
1497http://www.dilbert.com 1497http://www.dilbert.com
1498** TODO input field enhancements
1499- password field
1500- textarea
1501
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