(eww-restore-history): Inhibit change functions while restoring the history.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 50c8e402f0c45a3e87a58a94a5100738494d537b..26c68df7395692a87936fbbf09a4d29c1f5a8722 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,8 @@
        HTTP fetch fails, we have the right URL in the buffer.
        (eww-process-text-input): Don't shorten the input field if
        deleting at the last character (bug#19085).
+       (eww-restore-history): Inhibit change functions while restoring
+       the history.
 
        * dom.el (dom-pp): New function.
 

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 23f3653f362dbaec4ec6a40883a11a4a75b23754..75af7fbf64d7ef5dd0b80008c11c09be01eca12a 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -711,6 +711,7 @@ the like."
 
 (defun eww-restore-history (elem)
   (let ((inhibit-read-only t)
+       (after-change-functions nil)
        (text (plist-get elem :text)))
     (setq eww-data elem)
     (if (null text)