From: Nicolas Graner <nicolas.graner@universite-paris-saclay.fr>
Date: Mon, 21 Sep 2020 11:57:31 +0000 (+0200)
Subject: Fix default value in checkboxes in eww
X-Git-Tag: emacs-28.0.90~5967
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4cb1e30988cc5c30bfc27a393c9b616870a3fc9e;p=emacs.git

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
---

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 8918be0d2e3..1ed87c66250 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -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)))