* autorevert.el (auto-revert-notify-add-watch)

(auto-revert-notify-handler): Add `attrib' for the inotify case,
it indicates changes in file modification time.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f0c1bcb7a8bceb3f4ae2373f231f83d0242d8994..66d108ebbe09baaeb5e4c1ab8c56a912bece76c4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-05-22  Michael Albinus  <michael.albinus@gmx.de>
+
+       * autorevert.el (auto-revert-notify-add-watch)
+       (auto-revert-notify-handler): Add `attrib' for the inotify case,
+       it indicates changes in file modification time.
+
 2013-05-22  Glenn Morris  <rgm@gnu.org>
 
        * emacs-lisp/bytecomp.el (byte-compile-file-form-autoload):

diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index 02a99ce98e71ef63887b27ec2214c4604553e027..a2ce6017b21853f6dbda33d57cc30be9bccc896a 100644 (file)
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -521,8 +521,9 @@ will use an up-to-date value of `auto-revert-interval'"
             (not auto-revert-notify-watch-descriptor))
     (let ((func (if (fboundp 'inotify-add-watch)
                    'inotify-add-watch 'w32notify-add-watch))
+         ;; `attrib' is needed for file modification time.
          (aspect (if (fboundp 'inotify-add-watch)
-                     '(create modify moved-to) '(size last-write-time)))
+                     '(attrib create modify moved-to) '(size last-write-time)))
          (file (if (fboundp 'inotify-add-watch)
                    (directory-file-name (expand-file-name default-directory))
                  (buffer-file-name))))
@@ -576,7 +577,8 @@ will use an up-to-date value of `auto-revert-interval'"
        ;; TODO: Filter events which stop watching, like `move' or `removed'.
        (cl-assert descriptor)
        (when (featurep 'inotify)
-         (cl-assert (or (memq 'create action)
+         (cl-assert (or (memq 'attrib action)
+                        (memq 'create action)
                         (memq 'modify action)
                         (memq 'moved-to action))))
        (when (featurep 'w32notify) (cl-assert (eq 'modified action)))