mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Lists used as plists now have to be an even length

Browse source 
* lisp/net/eww.el (eww-size-text-inputs): `eww-form' isn't a plist.
(eww-process-text-input): Not here, either.
This commit is contained in:
Lars Ingebrigtsen 2017-02-18 16:46:06 +01:00
parent 6ad34b3d54
commit 7d15daf713
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/net/eww.el
View file

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