sergiodj/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-09-02 09:45:31 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove instrumentation

Browse source 
* lisp/filenotify.el (file-notify-handle-event):
* test/lisp/filenotify-tests.el (file-notify--test-event-handler):
Remove instrumentation.
This commit is contained in:
Michael Albinus 2019-01-07 14:09:02 +01:00
parent 70a6a2e351
commit 56a96db98d
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/filenotify.el
View file

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

4
test/lisp/filenotify-tests.el
View file

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