From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 18 Feb 2017 15:46:06 +0000 (+0100)
Subject: Lists used as plists now have to be an even length
X-Git-Tag: emacs-26.0.90~787
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d15daf713f7fe2d067a10812cdfcb32963f596e;p=emacs.git

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