diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2013-05-22 16:47:19 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2013-05-22 16:47:19 +0200 |
| commit | 5d0acd9d3bb26adfac1c80b78aa48dc8b2d34fe0 (patch) | |
| tree | db1118dada26468ede9bf458eb63d32e0e59ac14 /lisp/autorevert.el | |
| parent | a4e7e8ae1384ff477aaa45ca2189d447e214c7e7 (diff) | |
* autorevert.el (auto-revert-notify-add-watch)
(auto-revert-notify-handler): Add `attrib' for the inotify case,
it indicates changes in file modification time.
Diffstat (limited to 'lisp/autorevert.el')
| -rw-r--r-- | lisp/autorevert.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 02a99ce98e7..a2ce6017b21 100644 --- 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))) |