changeset 56912:86b23d3c36a2

(auto-revert-handler): Bind `buffer-read-only' locally around the call to `revert-buffer'.
author Luc Teirlinck <teirllm@auburn.edu>
date Fri, 03 Sep 2004 22:25:21 +0000
parents c13f2756b08a
children 9cd521d53335
files lisp/autorevert.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)