* autorevert.el (auto-revert-handler): Notifications which result

from a saved file shall not be taken into account.  (Bug#13557)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7c51077126494d980e6feab2307977bdfd6263a5..610a237b05038208996cc4b8658969342927d49e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-01-27  Michael Albinus  <michael.albinus@gmx.de>
+
+       * autorevert.el (auto-revert-handler): Notifications which result
+       from a saved file shall not be taken into account.  (Bug#13557)
+
 2013-01-26  Andreas Schwab  <schwab@linux-m68k.org>
 
        * emacs-lisp/lisp-mode.el (lisp-mode-variables): Add optional

diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index 25a953e17199f48556d247a6a88b139e3546a80a..9270b98ac83ce577488e63507d491411fc437b25 100644 (file)
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -612,21 +612,16 @@ This is an internal function used by Auto-Revert Mode."
            (or (and buffer-file-name
                     (or auto-revert-remote-files
                         (not (file-remote-p buffer-file-name)))
+                    (or (not auto-revert-use-notify)
+                        auto-revert-notify-modified-p)
                     (if auto-revert-tail-mode
-                        (and (or (not auto-revert-use-notify)
-                                 auto-revert-notify-modified-p)
-                             (file-readable-p buffer-file-name)
+                        (and (file-readable-p buffer-file-name)
                              (/= auto-revert-tail-pos
                                  (setq size
                                        (nth 7 (file-attributes
                                                buffer-file-name)))))
-                      ;; When `auto-revert-use-notify' is set, we do
-                      ;; not apply further checks for performance
-                      ;; reasons.
-                      (if auto-revert-use-notify
-                          auto-revert-notify-modified-p
-                        (and (file-readable-p buffer-file-name)
-                             (not (verify-visited-file-modtime buffer))))))
+                      (and (file-readable-p buffer-file-name)
+                           (not (verify-visited-file-modtime buffer)))))
                (and (or auto-revert-mode
                         global-auto-revert-non-file-buffers)
                     revert-buffer-function
@@ -634,8 +629,8 @@ This is an internal function used by Auto-Revert Mode."
                     (functionp buffer-stale-function)
                     (funcall buffer-stale-function t))))
           eob eoblist)
+      (setq auto-revert-notify-modified-p nil)
       (when revert
-       (setq auto-revert-notify-modified-p nil)
        (when (and auto-revert-verbose
                   (not (eq revert 'fast)))
          (message "Reverting buffer `%s'." (buffer-name)))