# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1094250321 0
# Node ID 86b23d3c36a289beba7ce03dfb0becf170d0e391
# Parent  c13f2756b08aae512cfd95abb140c5792d927c4f
(auto-revert-handler): Bind `buffer-read-only' locally around the call
to `revert-buffer'.

diff -r c13f2756b08a -r 86b23d3c36a2 lisp/autorevert.el
--- a/lisp/autorevert.el	Fri Sep 03 21:51:22 2004 +0000
+++ b/lisp/autorevert.el	Fri Sep 03 22:25:21 2004 +0000
@@ -421,7 +421,8 @@
 	   '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)