Remove instrumentation

* lisp/filenotify.el (file-notify-handle-event):
* test/lisp/filenotify-tests.el (file-notify--test-event-handler):
Remove instrumentation.

diff --git a/lisp/filenotify.el b/lisp/filenotify.el
index ef3be8a4a9bba2bef0797dc1fa7509593bb70766..6a3f0b0f47d3dbc93bd5365c81ec6dcb5c8fb64b 100644 (file)
--- a/lisp/filenotify.el
+++ b/lisp/filenotify.el
@@ -90,7 +90,7 @@ If EVENT is a filewatch event, call its callback.  It has the format
 
 Otherwise, signal a `file-notify-error'."
   (interactive "e")
-  (message "file-notify-handle-event %S" event)
+  ;;(message "file-notify-handle-event %S" event)
   (if (and (consp event)
            (eq (car event) 'file-notify)
           (>= (length event) 3))

diff --git a/test/lisp/filenotify-tests.el b/test/lisp/filenotify-tests.el
index 2aa0b6a0e8b174943e00b12d7bc51e66af192190..f2da8f3ed52ae0126e181bc180e6aedffb2ab4a2 100644 (file)
--- a/test/lisp/filenotify-tests.el
+++ b/test/lisp/filenotify-tests.el
@@ -516,8 +516,8 @@ and the event to `file-notify--test-events'."
     (unless (string-match
             (regexp-quote ".#")
             (file-notify--event-file-name file-notify--test-event))
-      (message "file-notify--test-event-handler result: %s event: %S"
-               (null (ert-test-failed-p result)) file-notify--test-event)
+      ;;(message "file-notify--test-event-handler result: %s event: %S"
+               ;;(null (ert-test-failed-p result)) file-notify--test-event)
       (setq file-notify--test-events
            (append file-notify--test-events `(,file-notify--test-event))
            file-notify--test-results