[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Michael Albinus
Subject: [Emacs-diffs] scratch/albinus ee52a62: * lisp/filenotify.el (file-notify-callback): Instrument.
Date: Sat, 5 Jan 2019 11:17:20 -0500 (EST)

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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]