[Emacs-diffs] master d931478: Fix typo in last checkin

[Lars Ingebrigtsen]

branch: master
commit d931478266f7ec1216c927caf926f8be8cec4094
Author: Lars Magne Ingebrigtsen <address@hidden>
Date:   Thu Nov 27 21:26:49 2014 +0100

    Fix typo in last checkin
    
    * eww.el (eww-restore-history): Bind
    `inhibit-modification-hooks' instead of `after-change-functions'.
---
 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 e74935b..2059b5e 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))