diff options
| author | Michael Albinus | 2022-09-19 11:39:29 +0200 |
|---|---|---|
| committer | Michael Albinus | 2022-09-19 11:39:29 +0200 |
| commit | 0e5eb6ec8ce99c423bbafc6e8e3292d4459050d1 (patch) | |
| tree | 5abfaddcc73aea321567bfe3b434b7cb90c1e974 | |
| parent | 899055eef5b212d63e352ada2ac917d13c033a59 (diff) | |
| download | emacs-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.el | 3 | ||||
| -rw-r--r-- | test/lisp/filenotify-tests.el | 13 |
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)) |