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

2 files changed, 6 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79e90083295..de2e0ac535c 100644
--- 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 45d8d2b2ccc..f1014a7260d 100644
--- 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))