diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2004-09-03 22:28:10 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2004-09-03 22:28:10 +0000 |
| commit | 90e118abf2dcc4aca4d7a7642247fa488554351e (patch) | |
| tree | 4a061958e223437592c83ebccc4ff0ef7104dbb7 /lisp/autorevert.el | |
| parent | 9e68f42d8e63609d322967815d720bdca8772337 (diff) | |
| download | emacs-90e118abf2dcc4aca4d7a7642247fa488554351e.tar.gz | |
(auto-revert-handler): Bind `buffer-read-only' locally around the call
to `revert-buffer'.
Diffstat (limited to 'lisp/autorevert.el')
| -rw-r--r-- | lisp/autorevert.el | 3 |
1 files changed, 2 insertions, 1 deletions
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) |