[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 5e56f60 1/2: Make toggling checkboxes work again
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 5e56f60 1/2: Make toggling checkboxes work again |
Date: |
Fri, 25 Dec 2015 06:45:41 +0000 |
branch: master
commit 5e56f606952e5e81b4d3a93ea70e791b74b33041
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Make toggling checkboxes work again
* eww.el (eww-update-field): Make toggling checkboxes work
again (bug#21881).
---
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 8ea17e0..65ff733 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'.")
(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 ()