aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2013-05-22 16:47:19 +0200
committerMichael Albinus2013-05-22 16:47:19 +0200
commit5d0acd9d3bb26adfac1c80b78aa48dc8b2d34fe0 (patch)
treedb1118dada26468ede9bf458eb63d32e0e59ac14
parenta4e7e8ae1384ff477aaa45ca2189d447e214c7e7 (diff)
downloademacs-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/ChangeLog6
-rw-r--r--lisp/autorevert.el6
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 @@
12013-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
12013-05-22 Glenn Morris <rgm@gnu.org> 72013-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)))