Fix default value in checkboxes in eww

* lisp/net/eww.el (eww-submit): Checked checkboxes need a default
value (bug#43542).

Copyright-paperwork-exempt: yes
This commit is contained in:
Nicolas Graner 2020-09-21 13:57:31 +02:00 committed by Lars Ingebrigtsen
parent 63f9d9af81
commit 4cb1e30988

View file

@ -1634,7 +1634,7 @@ See URL `https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'.")
(cond
((member (plist-get input :type) '("checkbox" "radio"))
(when (plist-get input :checked)
(push (cons name (plist-get input :value))
(push (cons name (or (plist-get input :value) "on"))
values)))
((equal (plist-get input :type) "file")
(when-let ((file (plist-get input :filename)))