aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2015-12-25 06:47:28 +0100
committerLars Ingebrigtsen2015-12-25 06:47:28 +0100
commit5e56f606952e5e81b4d3a93ea70e791b74b33041 (patch)
tree9f626548f94a7661942c30ae95fad57dd403bfa8
parent9f0fd7cb1aec3eb9e2e0f7b8854c30870286d96c (diff)
downloademacs-5e56f606952e5e81b4d3a93ea70e791b74b33041.tar.gz
emacs-5e56f606952e5e81b4d3a93ea70e791b74b33041.zip
Make toggling checkboxes work again
* eww.el (eww-update-field): Make toggling checkboxes work again (bug#21881).
-rw-r--r--lisp/net/eww.el9
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 8ea17e01018..65ff733726d 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -1181,16 +1181,19 @@ See URL `https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'.")
1181 (eww-update-field display)))) 1181 (eww-update-field display))))
1182 1182
1183(defun eww-update-field (string &optional offset) 1183(defun eww-update-field (string &optional offset)
1184 (if (not offset) (setq offset 0)) 1184 (unless offset
1185 (setq offset 0))
1185 (let ((properties (text-properties-at (point))) 1186 (let ((properties (text-properties-at (point)))
1186 (start (+ (eww-beginning-of-field) offset)) 1187 (start (+ (eww-beginning-of-field) offset))
1187 (current-end (1+ (eww-end-of-field))) 1188 (current-end (1+ (eww-end-of-field)))
1188 (new-end (1+ (+ (eww-beginning-of-field) (length string))))) 1189 (new-end (+ (eww-beginning-of-field) (length string)))
1190 (inhibit-read-only t))
1189 (delete-region start current-end) 1191 (delete-region start current-end)
1190 (forward-char offset) 1192 (forward-char offset)
1191 (insert string 1193 (insert string
1192 (make-string (- (- (+ new-end offset) start) (length string)) ? )) 1194 (make-string (- (- (+ new-end offset) start) (length string)) ? ))
1193 (if (= 0 offset) (set-text-properties start new-end properties)) 1195 (when (= 0 offset)
1196 (set-text-properties start new-end properties))
1194 start)) 1197 start))
1195 1198
1196(defun eww-toggle-checkbox () 1199(defun eww-toggle-checkbox ()