From ee52a62e6b5d137fc26143344b10633372b7b84c Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sat, 5 Jan 2019 17:17:07 +0100 Subject: [PATCH] * 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 89fae27253d..8be7ffa4132 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) -- 2.39.5