[Emacs-diffs] master 7d15daf: Lists used as plists now have to be an even length

[Lars Ingebrigtsen]

branch: master
commit 7d15daf713f7fe2d067a10812cdfcb32963f596e
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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.
---
 lisp/net/eww.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index f7e0634..c9f4e61 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))