diff options
| -rw-r--r-- | lisp/net/eww.el | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 9490d319226..f225079577a 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el | |||
| @@ -1241,12 +1241,7 @@ See URL `https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'.") | |||
| 1241 | (start (point)) | 1241 | (start (point)) |
| 1242 | (max 0) | 1242 | (max 0) |
| 1243 | opelem) | 1243 | opelem) |
| 1244 | (if (eq (dom-tag dom) 'optgroup) | 1244 | (dolist (elem (dom-non-text-children dom)) |
| 1245 | (dolist (groupelem (dom-children dom)) | ||
| 1246 | (unless (dom-attr groupelem 'disabled) | ||
| 1247 | (setq opelem (append opelem (list groupelem))))) | ||
| 1248 | (setq opelem (list dom))) | ||
| 1249 | (dolist (elem opelem) | ||
| 1250 | (when (eq (dom-tag elem) 'option) | 1245 | (when (eq (dom-tag elem) 'option) |
| 1251 | (when (dom-attr elem 'selected) | 1246 | (when (dom-attr elem 'selected) |
| 1252 | (nconc menu (list :value (dom-attr elem 'value)))) | 1247 | (nconc menu (list :value (dom-attr elem 'value)))) |