* lisp/filenotify.el (file-notify-callback): Instrument.

diff --git a/lisp/filenotify.el b/lisp/filenotify.el
index 89fae27253d81df32244f3ac7ff22fed3a98a99b..8be7ffa413207a52d016b6b0ebd582a6543a270b 100644 (file)
--- 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)