mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

(auto-revert-handler): Bind `buffer-read-only' locally around the call

Browse Source 
to `revert-buffer'.
This commit is contained in:
Luc Teirlinck 2004-09-03 22:28:10 +00:00
parent 9e68f42d8e
commit 90e118abf2
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

3
lisp/autorevert.el
View File

@ -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)