[Emacs-diffs] scratch/albinus ee52a62: * lisp/filenotify.el (file-notify-callback): Instrument.

[Michael Albinus]

branch: scratch/albinus
commit ee52a62e6b5d137fc26143344b10633372b7b84c
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    * lisp/filenotify.el (file-notify-callback): Instrument.
---
 lisp/filenotify.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/filenotify.el b/lisp/filenotify.el
index 89fae27..8be7ffa 100644
--- a/lisp/filenotify.el
+++ b/lisp/filenotify.el
@@ -239,9 +239,11 @@ EVENT is the cadr of the event in 
`file-notify-handle-event'
                            (string-equal
                             (file-notify--watch-filename watch)
                             (file-name-nondirectory file1)))))
-            ;;(message
-            ;;"file-notify-callback %S %S %S %S %S"
-            ;;desc action file file1 watch)
+            (message
+             "file-notify-callback %S %S %S %S %S %S %S"
+             desc action file file1 watch
+             (file-notify--event-watched-file event)
+             (file-notify--watch-directory watch))
             (funcall (file-notify--watch-callback watch)
                      (if file1
                          `(,desc ,action ,file ,file1)