From 12d6abb27f01014003f961456d0e5a346f69f08b Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Thu, 18 Jul 2019 20:46:25 +0200 Subject: [PATCH] ; Fix last commit in tramp-sh.el --- lisp/net/tramp-sh.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index 170993787b7..6a82fef4f70 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 - (cdr (assq 'file-notify special-event-map)) + (lookup-key special-event-map [file-notify]) `(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 - (cdr (assq 'file-notify special-event-map)) + (lookup-key special-event-map [file-notify]) `(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 - (cdr (assq 'file-notify special-event-map)) + (lookup-key special-event-map [file-notify]) `(file-notify ,object file-notify-callback))))))) (defun tramp-sh-handle-file-system-info (filename) -- 2.39.2