Determine `file-notify' handler in Tramp from `special-event-map'.

* lisp/net/tramp-sh.el (tramp-sh-gio-monitor-process-filter)
(tramp-sh-gvfs-monitor-dir-process-filter)
(tramp-sh-inotifywait-process-filter): Determine `file-notify'
handler from `special-event-map'.

1 files changed, 3 insertions, 3 deletions

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 9a0ead47552..170993787b7 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -3704,7 +3704,7 @@ Fall back to normal file name handler if no Tramp handler exists."
         ;; once.  Therefore, we apply the handler directly.
         (when (member (cl-caadr object) events)
           (tramp-compat-funcall
-           'file-notify-handle-event
+           (cdr (assq 'file-notify special-event-map))
            `(file-notify ,object file-notify-callback)))))
 
     ;; Save rest of the string.
@@ -3755,7 +3755,7 @@ file-notify events."
         ;; once.  Therefore, we apply the handler directly.
         (when (member (cl-caadr object) events)
           (tramp-compat-funcall
-           'file-notify-handle-event
+           (cdr (assq 'file-notify special-event-map))
            `(file-notify ,object file-notify-callback)))))
 
     ;; Save rest of the string.
@@ -3791,7 +3791,7 @@ file-notify events."
         ;; once.  Therefore, we apply the handler directly.
         (when (member (cl-caadr object) events)
           (tramp-compat-funcall
-           'file-notify-handle-event
+           (cdr (assq 'file-notify special-event-map))
            `(file-notify ,object file-notify-callback)))))))
 
 (defun tramp-sh-handle-file-system-info (filename)