From: Michael Albinus <michael.albinus@gmx.de>
Date: Thu, 18 Jul 2019 18:46:25 +0000 (+0200)
Subject: ; Fix last commit in tramp-sh.el
X-Git-Tag: emacs-27.0.90~1862
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=12d6abb27f01014003f961456d0e5a346f69f08b;p=emacs.git

; Fix last commit in tramp-sh.el
---

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)