aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2022-09-19 11:39:29 +0200
committerMichael Albinus2022-09-19 11:39:29 +0200
commit0e5eb6ec8ce99c423bbafc6e8e3292d4459050d1 (patch)
tree5abfaddcc73aea321567bfe3b434b7cb90c1e974
parent899055eef5b212d63e352ada2ac917d13c033a59 (diff)
downloademacs-0e5eb6ec8ce99c423bbafc6e8e3292d4459050d1.tar.gz
emacs-0e5eb6ec8ce99c423bbafc6e8e3292d4459050d1.zip
Revert change in Tramp inotifywait
* lisp/net/tramp-sh.el (tramp-sh-handle-file-notify-add-watch): Revert use of "-P", it doesn't exist in older inotifywait versions. * test/lisp/filenotify-tests.el: Deactivate instrumentation.
-rw-r--r--lisp/net/tramp-sh.el3
-rw-r--r--test/lisp/filenotify-tests.el13
2 files changed, 8 insertions, 8 deletions
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 2052fa5a732..1d0d0f8b1ba 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -3814,7 +3814,8 @@ Fall back to normal file name handler if no Tramp handler exists."
3814 (concat "create,modify,move,moved_from,moved_to,move_self," 3814 (concat "create,modify,move,moved_from,moved_to,move_self,"
3815 "delete,delete_self,ignored")) 3815 "delete,delete_self,ignored"))
3816 ((memq 'attribute-change flags) "attrib,ignored")) 3816 ((memq 'attribute-change flags) "attrib,ignored"))
3817 sequence `(,command "-mPq" "-e" ,events ,localname) 3817 ;; "-P" has been added to version 3.21, so we cannot assume it yet.
3818 sequence `(,command "-mq" "-e" ,events ,localname)
3818 ;; Make events a list of symbols. 3819 ;; Make events a list of symbols.
3819 events 3820 events
3820 (mapcar 3821 (mapcar
diff --git a/test/lisp/filenotify-tests.el b/test/lisp/filenotify-tests.el
index 1e36117825e..d82e2dae7aa 100644
--- a/test/lisp/filenotify-tests.el
+++ b/test/lisp/filenotify-tests.el
@@ -137,11 +137,10 @@ Return nil when any other file notification watch is still active."
137 137
138(defun file-notify--test-cleanup () 138(defun file-notify--test-cleanup ()
139 "Cleanup after a test." 139 "Cleanup after a test."
140 (when (getenv "EMACS_EMBA_CI") 140 ;; (when (getenv "EMACS_EMBA_CI")
141 (dolist (buf (tramp-list-tramp-buffers)) 141 ;; (dolist (buf (tramp-list-tramp-buffers))
142 (message ";; %s\n%s" buf (tramp-get-buffer-string buf)) 142 ;; (message ";; %s\n%s" buf (tramp-get-buffer-string buf))
143 (kill-buffer buf))) 143 ;; (kill-buffer buf)))
144
145 (file-notify-rm-all-watches) 144 (file-notify-rm-all-watches)
146 145
147 (ignore-errors 146 (ignore-errors
@@ -178,8 +177,8 @@ Return nil when any other file notification watch is still active."
178 177
179(setq file-notify-debug nil 178(setq file-notify-debug nil
180 password-cache-expiry nil 179 password-cache-expiry nil
181 tramp-verbose (if (getenv "EMACS_EMBA_CI") 10 0) 180 ;; tramp-verbose (if (getenv "EMACS_EMBA_CI") 10 0)
182 181 tramp-verbose 0
183 ;; When the remote user id is 0, Tramp refuses unsafe temporary files. 182 ;; When the remote user id is 0, Tramp refuses unsafe temporary files.
184 tramp-allow-unsafe-temporary-files 183 tramp-allow-unsafe-temporary-files
185 (or tramp-allow-unsafe-temporary-files noninteractive)) 184 (or tramp-allow-unsafe-temporary-files noninteractive))