Fix Bug#26127

* lisp/filenotify.el (file-notify--rm-descriptor): Check, that
there is a function which could be called.  (Bug#26127)

* test/lisp/filenotify-tests.el (file-notify--test-cleanup):
Clear also `file-notify-descriptors'.
(file-notify--test-make-temp-name): Move up.
(file-notify-test02-rm-watch): New test.
(file-notify-test03-events, file-notify-test04-autorevert)
(file-notify-test05-file-validity)
(file-notify-test06-dir-validity)
(file-notify-test07-many-events, file-notify-test08-backup)
(file-notify-test09-watched-file-in-watched-dir)
(file-notify-test10-sufficient-resources): Rename.

1 files changed, 4 insertions, 3 deletions

diff --git a/lisp/filenotify.el b/lisp/filenotify.el
index 1de5420f1e7..7eb6229976a 100644
--- a/lisp/filenotify.el
+++ b/lisp/filenotify.el
@@ -62,9 +62,10 @@ If it is registered in `file-notify-descriptors', a stopped event is sent."
 
     (when (consp registered)
       ;; Send `stopped' event.
-      (funcall
-       (cdr (assoc file (cdr registered)))
-       `(,descriptor stopped ,(if file (expand-file-name file dir) dir)))
+      (when (consp (assoc file (cdr registered)))
+        (funcall
+         (cdr (assoc file (cdr registered)))
+         `(,descriptor stopped ,(if file (expand-file-name file dir) dir))))
 
       ;; Modify `file-notify-descriptors'.
       (if (not file)