diff options
Diffstat (limited to 'lisp/xwidget.el')
| -rw-r--r-- | lisp/xwidget.el | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/lisp/xwidget.el b/lisp/xwidget.el index 78bef103d34..d90dca3f755 100644 --- a/lisp/xwidget.el +++ b/lisp/xwidget.el @@ -261,11 +261,28 @@ Argument STR string." (list xww (cond ( (equal "text" field-type) (read-string "text:" field-value)) ( (equal "password" field-type) (read-passwd "password:" nil field-value)) - ( (equal "textarea" field-type) (read-string "textarea:" field-value)) + ( (equal "textarea" field-type) (xwidget-webkit-begin-edit-textarea xww field-value)) )))) (xwidget-webkit-execute-script xw (format "findactiveelement(document).value='%s'" str))) +(defun xwidget-webkit-begin-edit-textarea (xw text) + (switch-to-buffer + (generate-new-buffer "textarea")) + + (set (make-local-variable 'xwbl) xw) + (insert text) + ) + +(defun xwidget-webkit-end-edit-textarea () + (interactive) + (goto-char (point-min)) + (replace-string "\n" "\\n") + (xwidget-webkit-execute-script xwbl (format "findactiveelement(document).value='%s'" + (buffer-substring (point-min) (point-max)))) + ;;TODO convert linefeed to \n + ) + (defun xwidget-webkit-show-named-element (xw element-name) "make named-element show. for instance an anchor." (interactive (list (xwidget-webkit-current-session) (read-string "element name:"))) |