diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2014-11-27 21:26:49 +0100 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2014-11-27 21:26:49 +0100 |
| commit | d931478266f7ec1216c927caf926f8be8cec4094 (patch) | |
| tree | 7fce10a7c9c96eeb3037e9aeed0cca15d16f4f96 | |
| parent | a5fde629ffff283132122f57996e1296816c3640 (diff) | |
| download | emacs-d931478266f7ec1216c927caf926f8be8cec4094.tar.gz | |
Fix typo in last checkin
* eww.el (eww-restore-history): Bind
`inhibit-modification-hooks' instead of `after-change-functions'.
| -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)) |