[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] autorevert.el -- revert fix for Windows platform
From: |
Jari Aalto |
Subject: |
[PATCH] autorevert.el -- revert fix for Windows platform |
Date: |
22 Mar 2007 13:27:21 +0200 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.3 |
For some reason the `verify-visited-file-modtime' test in
auto-revert-buffers is not enough to notice a file change under
Windows / native Emacs 21.3. Here is patch to compare the bufer size
against files size on disk. It cures the revert problem.
The patch is against CVS 2007-03-22
2007-03-22 Thu Jari Aalto <jari aalto A T cante net>
* autorevert.el
(auto-revert-size-equal-p): New function.
(auto-revert-handler): Use `auto-revert-size-equal-p' to
test file change as well.
=== modified file 'autorevert.el'
--- autorevert.el 2007-03-22 11:05:43 +0000
+++ autorevert.el 2007-03-22 11:24:06 +0000
@@ -302,7 +302,6 @@
(auto-revert-buffers)
(setq auto-revert-tail-mode nil)))
-
;;;###autoload
(defun turn-on-auto-revert-mode ()
"Turn on Auto-Revert Mode.
@@ -396,6 +395,11 @@
(not (memq major-mode
global-auto-revert-ignore-modes)))))
+(defun auto-revert-size-equal-p ()
+ (let ((bsize (buffer-size))
+ (fsize (nth 7 (file-attributes (buffer-file-name)))))
+ (eq bsize fsize)))
+
(defun auto-revert-handler ()
"Revert current buffer, if appropriate.
This is an internal function used by Auto-Revert Mode."
@@ -405,7 +409,9 @@
(or (and buffer-file-name
(not (file-remote-p buffer-file-name))
(file-readable-p buffer-file-name)
- (not (verify-visited-file-modtime buffer)))
+ (or
+ (not (verify-visited-file-modtime buffer))
+ (not (auto-revert-size-equal-p))))
(and (or auto-revert-mode
global-auto-revert-non-file-buffers)
revert-buffer-function
- [PATCH] autorevert.el -- revert fix for Windows platform,
Jari Aalto <=
- Re: [PATCH] autorevert.el -- revert fix for Windows platform, Chong Yidong, 2007/03/22
- Re: [PATCH] autorevert.el -- revert fix for Windows platform, Lennart Borgman (gmail), 2007/03/22
- Re: [PATCH] autorevert.el -- revert fix for Windows platform, Jason Rumney, 2007/03/22
- Re: [PATCH] autorevert.el -- revert fix for Windows platform, Eli Zaretskii, 2007/03/23
- Re: [PATCH] autorevert.el -- revert fix for Windows platform, Jari Aalto, 2007/03/23
- Re: [PATCH] autorevert.el -- revert fix for Windows platform, Jason Rumney, 2007/03/23
- Re: [PATCH] autorevert.el -- revert fix for Windows platform, Jason Rumney, 2007/03/23
- Re: [PATCH] autorevert.el -- revert fix for Windows platform, martin rudalics, 2007/03/24
- Re: [PATCH] autorevert.el -- revert fix for Windows platform, Jason Rumney, 2007/03/24
- Re: [PATCH] autorevert.el -- revert fix for Windows platform, Johan Bockgård, 2007/03/24