[Emacs-diffs] /srv/bzr/emacs/trunk r112669: * autorevert.el (auto-revert-notify-add-watch)

[Michael Albinus]

------------------------------------------------------------
revno: 112669
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Wed 2013-05-22 16:47:19 +0200
message:
  * autorevert.el (auto-revert-notify-add-watch)
  (auto-revert-notify-handler): Add `attrib' for the inotify case,
  it indicates changes in file modification time.
modified:
  lisp/ChangeLog
  lisp/autorevert.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-22 07:50:30 +0000
+++ b/lisp/ChangeLog    2013-05-22 14:47:19 +0000
@@ -1,3 +1,9 @@
+2013-05-22  Michael Albinus  <address@hidden>
+
+       * 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  <address@hidden>
 
        * emacs-lisp/bytecomp.el (byte-compile-file-form-autoload):

=== modified file 'lisp/autorevert.el'
--- a/lisp/autorevert.el        2013-04-05 10:18:43 +0000
+++ b/lisp/autorevert.el        2013-05-22 14:47:19 +0000
@@ -521,8 +521,9 @@
             (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 @@
        ;; 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)))