mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* filenotify.el: New package.

Browse source 
* autorevert.el (top): Require filenotify.el.
(auto-revert-notify-enabled): Remove.  Use `file-notify-support'
instead.
(auto-revert-notify-rm-watch, auto-revert-notify-add-watch)
(auto-revert-notify-handler): Use `file-notify-*' functions.

* subr.el (file-notify-handle-event): Move function to filenotify.el.

* net/tramp.el (tramp-file-name-for-operation): Handle
`file-notify-add-watch' and `file-notify-rm-watch'.

* net/tramp-sh.el (tramp-sh-file-name-handler-alist): Add handler
for `file-notify-add-watch' and `file-notify-rm-watch'.
(tramp-process-sentinel): Improve trace.
(tramp-sh-handle-file-notify-add-watch)
(tramp-sh-file-notify-process-filter)
(tramp-sh-handle-file-notify-rm-watch)
(tramp-get-remote-inotifywait): New defuns.
This commit is contained in:
Michael Albinus 2013-07-04 11:39:36 +02:00
parent 86dfb7a815
commit 864c58ca5f
6 changed files with 474 additions and 123 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/net/tramp.el
View file

@ -1964,7 +1964,7 @@ ARGS are the arguments OPERATION has been called with."
;; Emacs 22+ only.
'set-file-times
;; Emacs 24+ only.
'file-acl 'file-selinux-context
'file-acl 'file-notify-add-watch 'file-selinux-context
'set-file-acl 'set-file-selinux-context
;; XEmacs only.
'abbreviate-file-name 'create-file-buffer
@ -2018,6 +2018,10 @@ ARGS are the arguments OPERATION has been called with."
;; XEmacs only.
'dired-print-file 'dired-shell-call-process))
default-directory)
;; PROC.
((eq operation 'file-notify-rm-watch)
(with-current-buffer (process-buffer (nth 0 args))
default-directory))
;; Unknown file primitive.
(t (error "unknown file I/O primitive: %s" operation))))