From abbb0faceaedea5369eba68c43e0b19dc861810f Mon Sep 17 00:00:00 2001 From: Nicolas Graner Date: Wed, 2 Nov 2022 22:28:45 +0100 Subject: [PATCH] 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) --- lisp/net/eww.el | 6 ++++-- 1 file 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'.") (list :eww-form eww-form :value value :type "textarea" - :name (dom-attr dom 'name))))) + :name (dom-attr dom 'name))) + (put-text-property start (1+ start) 'shr-tab-stop t))) (defun eww-tag-input (dom) (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'.") (add-face-text-property start (point) 'eww-form-select) (put-text-property start (point) 'keymap eww-select-map) (unless (= start (point)) - (put-text-property start (1+ start) 'help-echo "select field")) + (put-text-property start (1+ start) 'help-echo "select field") + (put-text-property start (1+ start) 'shr-tab-stop t)) (shr-ensure-paragraph)))) (defun eww-select-display (select) -- 2.39.5