Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 03:17:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
(auto-revert-notify-handler): Add `attrib' for the inotify case,
it indicates changes in file modification time.
This commit is contained in:
Michael Albinus 2013-05-22 16:47:19 +02:00
parent a4e7e8ae13
commit 5d0acd9d3b
2 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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):

6
lisp/autorevert.el
View file

@ -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)))