From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Thu, 27 Nov 2014 20:26:49 +0000 (+0100)
Subject: Fix typo in last checkin
X-Git-Tag: emacs-25.0.90~2635^2~285
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d931478266f7ec1216c927caf926f8be8cec4094;p=emacs.git

Fix typo in last checkin

* eww.el (eww-restore-history): Bind
`inhibit-modification-hooks' instead of `after-change-functions'.
---

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