mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-09-02 09:45:31 +00:00
Remove instrumentation
* lisp/filenotify.el (file-notify-handle-event): * test/lisp/filenotify-tests.el (file-notify--test-event-handler): Remove instrumentation.
This commit is contained in:
parent
70a6a2e351
commit
56a96db98d
2 changed files with 3 additions and 3 deletions
|
@ -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))
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue