mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

* autorevert.el (auto-revert-mode, auto-revert-tail-mode)

Browse Source 
(global-auto-revert-mode): Let-bind `auto-revert-use-notify' to
nil during initialization, in order not to miss changes since the
file was opened.  (Bug#14140)
This commit is contained in:
Michael Albinus 2013-04-05 12:18:43 +02:00
parent fc164b0c33
commit 2a417372c4
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2013-04-05 Michael Albinus <michael.albinus@gmx.de>
* autorevert.el (auto-revert-mode, auto-revert-tail-mode)
(global-auto-revert-mode): Let-bind `auto-revert-use-notify' to
nil during initialization, in order not to miss changes since the
file was opened. (Bug#14140)
2013-04-05 Leo Liu <sdl.web@gmail.com>
* kmacro.el (kmacro-call-macro): Fix bug#14135.

11
lisp/autorevert.el
View File

@ -367,8 +367,9 @@ without being changed in the part that is already in the buffer."
(delq (current-buffer) auto-revert-buffer-list)))
(auto-revert-set-timer)
(when auto-revert-mode
(auto-revert-buffers)
(setq auto-revert-tail-mode nil)))
(let (auto-revert-use-notify)
(auto-revert-buffers)
(setq auto-revert-tail-mode nil))))
;;;###autoload
@ -422,7 +423,8 @@ Use `auto-revert-mode' for changes other than appends!"
(y-or-n-p "File changed on disk, content may be missing. \
Perform a full revert? ")
;; Use this (not just revert-buffer) for point-preservation.
(auto-revert-handler))
(let (auto-revert-use-notify)
(auto-revert-handler)))
;; else we might reappend our own end when we save
(add-hook 'before-save-hook (lambda () (auto-revert-tail-mode 0)) nil t)
(or (local-variable-p 'auto-revert-tail-pos) ; don't lose prior position
@ -467,7 +469,8 @@ specifies in the mode line."
:global t :group 'auto-revert :lighter global-auto-revert-mode-text
(auto-revert-set-timer)
(if global-auto-revert-mode
(auto-revert-buffers)
(let (auto-revert-use-notify)
(auto-revert-buffers))
(dolist (buf (buffer-list))
(with-current-buffer buf
(when auto-revert-use-notify