diff options
| author | Michael Albinus | 2013-05-22 16:47:19 +0200 |
|---|---|---|
| committer | Michael Albinus | 2013-05-22 16:47:19 +0200 |
| commit | 5d0acd9d3bb26adfac1c80b78aa48dc8b2d34fe0 (patch) | |
| tree | db1118dada26468ede9bf458eb63d32e0e59ac14 | |
| parent | a4e7e8ae1384ff477aaa45ca2189d447e214c7e7 (diff) | |
| download | emacs-5d0acd9d3bb26adfac1c80b78aa48dc8b2d34fe0.tar.gz emacs-5d0acd9d3bb26adfac1c80b78aa48dc8b2d34fe0.zip | |
* autorevert.el (auto-revert-notify-add-watch)
(auto-revert-notify-handler): Add `attrib' for the inotify case,
it indicates changes in file modification time.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/autorevert.el | 6 |
2 files changed, 10 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f0c1bcb7a8b..66d108ebbe0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2013-05-22 Michael Albinus <michael.albinus@gmx.de> | ||
| 2 | |||
| 3 | * autorevert.el (auto-revert-notify-add-watch) | ||
| 4 | (auto-revert-notify-handler): Add `attrib' for the inotify case, | ||
| 5 | it indicates changes in file modification time. | ||
| 6 | |||
| 1 | 2013-05-22 Glenn Morris <rgm@gnu.org> | 7 | 2013-05-22 Glenn Morris <rgm@gnu.org> |
| 2 | 8 | ||
| 3 | * emacs-lisp/bytecomp.el (byte-compile-file-form-autoload): | 9 | * emacs-lisp/bytecomp.el (byte-compile-file-form-autoload): |
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'" | |||
| 521 | (not auto-revert-notify-watch-descriptor)) | 521 | (not auto-revert-notify-watch-descriptor)) |
| 522 | (let ((func (if (fboundp 'inotify-add-watch) | 522 | (let ((func (if (fboundp 'inotify-add-watch) |
| 523 | 'inotify-add-watch 'w32notify-add-watch)) | 523 | 'inotify-add-watch 'w32notify-add-watch)) |
| 524 | ;; `attrib' is needed for file modification time. | ||
| 524 | (aspect (if (fboundp 'inotify-add-watch) | 525 | (aspect (if (fboundp 'inotify-add-watch) |
| 525 | '(create modify moved-to) '(size last-write-time))) | 526 | '(attrib create modify moved-to) '(size last-write-time))) |
| 526 | (file (if (fboundp 'inotify-add-watch) | 527 | (file (if (fboundp 'inotify-add-watch) |
| 527 | (directory-file-name (expand-file-name default-directory)) | 528 | (directory-file-name (expand-file-name default-directory)) |
| 528 | (buffer-file-name)))) | 529 | (buffer-file-name)))) |
| @@ -576,7 +577,8 @@ will use an up-to-date value of `auto-revert-interval'" | |||
| 576 | ;; TODO: Filter events which stop watching, like `move' or `removed'. | 577 | ;; TODO: Filter events which stop watching, like `move' or `removed'. |
| 577 | (cl-assert descriptor) | 578 | (cl-assert descriptor) |
| 578 | (when (featurep 'inotify) | 579 | (when (featurep 'inotify) |
| 579 | (cl-assert (or (memq 'create action) | 580 | (cl-assert (or (memq 'attrib action) |
| 581 | (memq 'create action) | ||
| 580 | (memq 'modify action) | 582 | (memq 'modify action) |
| 581 | (memq 'moved-to action)))) | 583 | (memq 'moved-to action)))) |
| 582 | (when (featurep 'w32notify) (cl-assert (eq 'modified action))) | 584 | (when (featurep 'w32notify) (cl-assert (eq 'modified action))) |