2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 130ee51e80f..96fa1656f0a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-03  Luc Teirlinck  <teirllm@auburn.edu>
+
+        * autorevert.el (auto-revert-handler): Bind `buffer-read-only'
+        locally around the call to `revert-buffer'.
+
 2004-09-03  Juri Linkov  <juri@jurta.org>
 
         * isearch.el (isearch-toggle-regexp): Set `isearch-success' and
diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index 796ebaa27c8..ecf768c5732 100644
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -421,7 +421,8 @@ This is an internal function used by Auto-Revert Mode."
            'no-mini t))
         (if auto-revert-tail-mode
             (auto-revert-tail-handler)
-          (revert-buffer 'ignore-auto 'dont-ask 'preserve-modes))
+          (let ((buffer-read-only buffer-read-only))
+            (revert-buffer 'ignore-auto 'dont-ask 'preserve-modes)))
         (when buffer-file-name
           (when eob (goto-char (point-max)))
           (dolist (window eoblist)