mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* 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'.
This commit is contained in:
Michael Albinus 2019-07-18 20:26:24 +02:00
parent 8a2f763e5c
commit 71ce14a83e
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/net/tramp-sh.el
View file

@ -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)