]> code.delx.au - gnu-emacs/commitdiff
Make toggling checkboxes work again
authorLars Ingebrigtsen <larsi@gnus.org>
Fri, 25 Dec 2015 05:47:28 +0000 (06:47 +0100)
committerLars Ingebrigtsen <larsi@gnus.org>
Fri, 25 Dec 2015 16:04:08 +0000 (17:04 +0100)
* eww.el (eww-update-field): Make toggling checkboxes work
again (bug#21881).

Backport:

(cherry picked from commit 5e56f606952e5e81b4d3a93ea70e791b74b33041)

lisp/net/eww.el

index a22664bfbb542d7b103a60f712b583d3c4875d01..5bcb6221cbbf371849cb87b5e07611ee9ac64f86 100644 (file)
@@ -1177,16 +1177,19 @@ See URL `https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'.")
      (eww-update-field display))))
 
 (defun eww-update-field (string &optional offset)
-  (if (not offset) (setq offset 0))
+  (unless offset
+    (setq offset 0))
   (let ((properties (text-properties-at (point)))
        (start (+ (eww-beginning-of-field) offset))
        (current-end (1+ (eww-end-of-field)))
-       (new-end (1+ (+ (eww-beginning-of-field) (length string)))))
+       (new-end (+ (eww-beginning-of-field) (length string)))
+        (inhibit-read-only t))
     (delete-region start current-end)
     (forward-char offset)
     (insert string
            (make-string (- (- (+ new-end offset) start) (length string)) ? ))
-    (if (= 0 offset) (set-text-properties start new-end properties))
+    (when (= 0 offset)
+      (set-text-properties start new-end properties))
     start))
 
 (defun eww-toggle-checkbox ()