diff options
Diffstat (limited to 'lisp/net/eww.el')
| -rw-r--r-- | lisp/net/eww.el | 11 |
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)) |