mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases Activity

Fix typo in last checkin

Browse Source 
* eww.el (eww-restore-history): Bind
`inhibit-modification-hooks' instead of `after-change-functions'.
This commit is contained in:
Lars Magne Ingebrigtsen 2014-11-27 21:26:49 +01:00
parent a5fde629ff
commit d931478266
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/net/eww.el
View File

@ -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))