diff options
Diffstat (limited to 'lisp/net/eww.el')
| -rw-r--r-- | lisp/net/eww.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el index e74935b22f9..2059b5ea783 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -374,7 +374,7 @@ See the `eww-search-prefix' variable for the search engine used." (plist-put eww-data :source source) (plist-put eww-data :dom document) (let ((inhibit-read-only t) - (inhibit-modification-hooks nil) + (inhibit-modification-hooks t) (shr-target-id (url-target (url-generic-parse-url url))) (shr-external-rendering-functions '((title . eww-tag-title) @@ -712,7 +712,7 @@ the like." (defun eww-restore-history (elem) (let ((inhibit-read-only t) - (inhibit-modification-hooks nil) + (inhibit-modification-hooks t) (text (plist-get elem :text))) (setq eww-data elem) (if (null text) @@ -958,10 +958,10 @@ See URL `https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'.") (when-let (pos (and (< (1+ end) (point-max)) (> (1- end) (point-min)) (cond - ((get-text-property (1- end) 'eww-form) - (1- end)) ((get-text-property (1+ end) 'eww-form) - (1+ end))))) + (1+ end)) + ((get-text-property (1- end) 'eww-form) + (1- end))))) (let* ((form (get-text-property pos 'eww-form)) (properties (text-properties-at pos)) (inhibit-read-only t) @@ -1200,11 +1200,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 (set-marker (make-marker) start)) + (plist-put props :start start) (setq start (next-single-property-change start 'eww-form nil (point-max))) - (plist-put props - :end (set-marker (make-marker) start))))))) + (plist-put props :end start)))))) (defun eww-input-value (input) (let ((type (plist-get input :type)) |