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