(auto-revert-tail-handler): Put in undo boundaries.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79e900832952023fc90d9aeee49806f470e5ac31..de2e0ac535cb3fa1a49967c5dfd910f58a48ed3e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-12-30  Luc Teirlinck  <teirllm@auburn.edu>
+
+       * autorevert.el (auto-revert-tail-handler): Put in undo boundaries.
+
 2004-12-31  Masatake YAMATO  <jet@gyve.org>
 
        * server.el (server-process-filter): Suppress `error', too.

diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index 45d8d2b2ccc382bbafd977dd0179466b00c9a14c..f1014a7260d87aebac6eb07f027ef8ac819312ff 100644 (file)
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -444,11 +444,13 @@ This is an internal function used by Auto-Revert Mode."
        (file buffer-file-name)
        buffer-file-name)               ; ignore that file has changed
     (when (> size auto-revert-tail-pos)
+      (undo-boundary)
       (save-restriction
        (widen)
        (save-excursion
          (goto-char (point-max))
          (insert-file-contents file nil auto-revert-tail-pos size)))
+      (undo-boundary)
       (setq auto-revert-tail-pos size)
       (set-buffer-modified-p modified)))
   (set-visited-file-modtime))