diff options
| author | Lars Ingebrigtsen | 2015-12-25 06:47:28 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2015-12-25 06:47:28 +0100 |
| commit | 5e56f606952e5e81b4d3a93ea70e791b74b33041 (patch) | |
| tree | 9f626548f94a7661942c30ae95fad57dd403bfa8 | |
| parent | 9f0fd7cb1aec3eb9e2e0f7b8854c30870286d96c (diff) | |
| download | emacs-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.el | 9 |
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 () |