Lists used as plists now have to be an even length

* lisp/net/eww.el (eww-size-text-inputs): `eww-form' isn't a plist.
(eww-process-text-input): Not here, either.

1 files changed, 6 insertions, 5 deletions

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index f7e06341443..c9f4e61a6fe 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -1135,7 +1135,8 @@ See URL `https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'.")
               (insert (make-string (abs length) ? ))
               (set-text-properties start (point) properties))
             (goto-char (1- end)))))
-        (set-text-properties (plist-get form :start) (plist-get form :end)
+        (set-text-properties (cdr (assq :start form))
+                             (cdr (assq :end form))
                              properties)
         (let ((value (buffer-substring-no-properties
                       (eww-beginning-of-field)
@@ -1348,10 +1349,10 @@ See URL `https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'.")
       (when (or (get-text-property start 'eww-form)
                 (setq start (next-single-property-change start 'eww-form)))
         (let ((props (get-text-property start 'eww-form)))
-          (plist-put props :start start)
-          (setq start (next-single-property-change
-                       start 'eww-form nil (point-max)))
-          (plist-put props :end start))))))
+          (nconc props (list (cons :start start)))
+          (setq start (next-single-property-change
+                       start 'eww-form nil (point-max)))
+          (nconc props (list (cons :end start))))))))
 
 (defun eww-input-value (input)
   (let ((type (plist-get input :type))