[Emacs-diffs] master 12d6abb 1/2: ; Fix last commit in tramp-sh.el

[Michael Albinus]

branch: master
commit 12d6abb27f01014003f961456d0e5a346f69f08b
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    ; 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 1709937..6a82fef 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)