aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorNicolas Graner2022-11-02 22:28:45 +0100
committerEli Zaretskii2022-11-10 11:45:40 +0200
commitabbb0faceaedea5369eba68c43e0b19dc861810f (patch)
tree4218539076980bfc07a08417dc5c56981e02b245
parent0047bdeb3393d5d7acbdffd7444370fc3e4d2384 (diff)
downloademacs-abbb0faceaedea5369eba68c43e0b19dc861810f.tar.gz
emacs-abbb0faceaedea5369eba68c43e0b19dc861810f.zip
Better support for 'textarea' and 'select' tags in EWW
* lisp/net/eww.el (eww-tag-textarea, eww-tag-select): Don't miss 'textarea' and 'select' tags. (Bug#58973)
-rw-r--r--lisp/net/eww.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 414de931c4a..3799ef96e84 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -1596,7 +1596,8 @@ See URL `https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'.")
1596 (list :eww-form eww-form 1596 (list :eww-form eww-form
1597 :value value 1597 :value value
1598 :type "textarea" 1598 :type "textarea"
1599 :name (dom-attr dom 'name))))) 1599 :name (dom-attr dom 'name)))
1600 (put-text-property start (1+ start) 'shr-tab-stop t)))
1600 1601
1601(defun eww-tag-input (dom) 1602(defun eww-tag-input (dom)
1602 (let ((type (downcase (or (dom-attr dom 'type) "text"))) 1603 (let ((type (downcase (or (dom-attr dom 'type) "text")))
@@ -1660,7 +1661,8 @@ See URL `https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'.")
1660 (add-face-text-property start (point) 'eww-form-select) 1661 (add-face-text-property start (point) 'eww-form-select)
1661 (put-text-property start (point) 'keymap eww-select-map) 1662 (put-text-property start (point) 'keymap eww-select-map)
1662 (unless (= start (point)) 1663 (unless (= start (point))
1663 (put-text-property start (1+ start) 'help-echo "select field")) 1664 (put-text-property start (1+ start) 'help-echo "select field")
1665 (put-text-property start (1+ start) 'shr-tab-stop t))
1664 (shr-ensure-paragraph)))) 1666 (shr-ensure-paragraph))))
1665 1667
1666(defun eww-select-display (select) 1668(defun eww-select-display (select)