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.

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index f7e06341443c98f6e85c6571fc09a3e4f6388102..c9f4e61a6fec10f77e45f9cfe4fe00710d5a02b8 100644 (file)
--- 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))