procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix bug #13725 with file notifications on MS-Windows.

Browse source 
lisp/autorevert.el (auto-revert-notify-add-watch): With 'w32notify',
 add watch for the file, not its parent directory, since w32notify
 sets up the watch for the directory internally.
This commit is contained in:
Eli Zaretskii 2013-02-16 11:13:40 +02:00
parent 99e619b617
commit a7a84eea2d
2 changed files with 11 additions and 4 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-02-16 Eli Zaretskii <eliz@gnu.org>
* autorevert.el (auto-revert-notify-add-watch): With 'w32notify',
add watch for the file, not its parent directory, since w32notify
sets up the watch for the directory internally. (Bug#13725)
2013-02-16 Glenn Morris <rgm@gnu.org>
* image.el (image-default-frame-delay): New variable.

9
lisp/autorevert.el
View file

@ -519,12 +519,13 @@ will use an up-to-date value of `auto-revert-interval'"
(let ((func (if (fboundp 'inotify-add-watch)
'inotify-add-watch 'w32notify-add-watch))
(aspect (if (fboundp 'inotify-add-watch)
'(create modify moved-to) '(size last-write-time))))
'(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))))
(setq auto-revert-notify-watch-descriptor
(ignore-errors
(funcall
func (directory-file-name (expand-file-name default-directory))
aspect 'auto-revert-notify-handler)))
(funcall func file aspect 'auto-revert-notify-handler)))
(if auto-revert-notify-watch-descriptor
(progn
(puthash