(concat "create,modify,move,moved_from,moved_to,move_self,"
"delete,delete_self,ignored"))
((memq 'attribute-change flags) "attrib,ignored"))
- sequence `(,command "-mPq" "-e" ,events ,localname)
+ ;; "-P" has been added to version 3.21, so we cannot assume it yet.
+ sequence `(,command "-mq" "-e" ,events ,localname)
;; Make events a list of symbols.
events
(mapcar
(defun file-notify--test-cleanup ()
"Cleanup after a test."
- (when (getenv "EMACS_EMBA_CI")
- (dolist (buf (tramp-list-tramp-buffers))
- (message ";; %s\n%s" buf (tramp-get-buffer-string buf))
- (kill-buffer buf)))
-
+ ;; (when (getenv "EMACS_EMBA_CI")
+ ;; (dolist (buf (tramp-list-tramp-buffers))
+ ;; (message ";; %s\n%s" buf (tramp-get-buffer-string buf))
+ ;; (kill-buffer buf)))
(file-notify-rm-all-watches)
(ignore-errors
(setq file-notify-debug nil
password-cache-expiry nil
- tramp-verbose (if (getenv "EMACS_EMBA_CI") 10 0)
-
+ ;; tramp-verbose (if (getenv "EMACS_EMBA_CI") 10 0)
+ tramp-verbose 0
;; When the remote user id is 0, Tramp refuses unsafe temporary files.
tramp-allow-unsafe-temporary-files
(or tramp-allow-unsafe-temporary-files noninteractive))