From 088dd67f891553e1a27e65c97e386d0dd8dc4f64 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Thu, 12 Oct 2023 11:02:53 +0200 Subject: New filenotify tests * src/inotify.c (Finotify_watch_list, Finotify_allocated_p): Fix argument list. * test/lisp/filenotify-tests.el (file-notify-test04-autorevert): Use `skip-when'. (file-notify-test12-unmount, file-notify-test12-unmount-remote): New tests. --- src/inotify.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src') diff --git a/src/inotify.c b/src/inotify.c index 247d9f03055..f50b9ddcaa7 100644 --- a/src/inotify.c +++ b/src/inotify.c @@ -517,12 +517,14 @@ it invalid. */) #ifdef INOTIFY_DEBUG DEFUN ("inotify-watch-list", Finotify_watch_list, Sinotify_watch_list, 0, 0, 0, doc: /* Return a copy of the internal watch_list. */) + (void) { return Fcopy_sequence (watch_list); } DEFUN ("inotify-allocated-p", Finotify_allocated_p, Sinotify_allocated_p, 0, 0, 0, doc: /* Return non-nil, if an inotify instance is allocated. */) + (void) { return inotifyfd < 0 ? Qnil : Qt; } -- cgit v1.2.1