diff options
| author | Nicolas Graner | 2022-11-02 22:28:45 +0100 |
|---|---|---|
| committer | Eli Zaretskii | 2022-11-10 11:45:40 +0200 |
| commit | abbb0faceaedea5369eba68c43e0b19dc861810f (patch) | |
| tree | 4218539076980bfc07a08417dc5c56981e02b245 | |
| parent | 0047bdeb3393d5d7acbdffd7444370fc3e4d2384 (diff) | |
| download | emacs-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.el | 6 |
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) |