diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2013-07-24 15:29:15 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2013-07-24 15:29:15 +0200 |
| commit | d5d3c58aac3fa748bd6b81c79b0c435bbf1c4cbc (patch) | |
| tree | 120baf49fd9b76e5564693756d95a3258bb54d28 /lisp/filenotify.el | |
| parent | 95e6e62b6445c92e725a44e3c725c93367722bf0 (diff) | |
| download | emacs-d5d3c58aac3fa748bd6b81c79b0c435bbf1c4cbc.tar.gz | |
* filenotify.el (file-notify-supported-p):
* net/tramp-sh.el (tramp-sh-handle-file-notify-supported-p):
Remove functions.
* autorevert.el (auto-revert-use-notify):
(auto-revert-notify-add-watch):
* net/tramp.el (tramp-file-name-for-operation):
* net/tramp-adb.el (tramp-adb-file-name-handler-alist):
* net/tramp-gvfs.el (tramp-gvfs-file-name-handler-alist):
* net/tramp-sh.el (tramp-sh-file-name-handler-alist):
* net/tramp-smb.el (tramp-smb-file-name-handler-alist):
Remove `file-notify-supported-p' entry.
Diffstat (limited to 'lisp/filenotify.el')
| -rw-r--r-- | lisp/filenotify.el | 20 |
1 files changed, 5 insertions, 15 deletions
diff --git a/lisp/filenotify.el b/lisp/filenotify.el index c9a7e106faa..d2f37b99107 100644 --- a/lisp/filenotify.el +++ b/lisp/filenotify.el @@ -190,17 +190,6 @@ car of that event, which is the symbol `file-notify'." (funcall callback (list desc action file file1)) (funcall callback (list desc action file))))))) -(defun file-notify-supported-p (file) - "Returns non-nil if filesystem pertaining to FILE could be watched." - (unless (stringp file) - (signal 'wrong-type-argument (list file))) - (setq file (expand-file-name file)) - - (let ((handler (find-file-name-handler file 'file-notify-supported-p))) - (if handler - (funcall handler 'file-notify-supported-p file) - (and file-notify--library t)))) - (defun file-notify-add-watch (file flags callback) "Add a watch for filesystem events pertaining to FILE. This arranges for filesystem events pertaining to FILE to be reported @@ -274,10 +263,11 @@ FILE is the name of the file whose event is being reported." '("No file notification package available"))) ;; Determine low-level function to be called. - (setq func (cond - ((eq file-notify--library 'gfilenotify) 'gfile-add-watch) - ((eq file-notify--library 'inotify) 'inotify-add-watch) - ((eq file-notify--library 'w32notify) 'w32notify-add-watch))) + (setq func + (cond + ((eq file-notify--library 'gfilenotify) 'gfile-add-watch) + ((eq file-notify--library 'inotify) 'inotify-add-watch) + ((eq file-notify--library 'w32notify) 'w32notify-add-watch))) ;; Determine respective flags. (if (eq file-notify--library 'gfilenotify) |