aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2019-07-31 14:54:08 +0200
committerMichael Albinus2019-07-31 14:54:08 +0200
commitc306848c0fe830127ee8d4fd936f17f341ad179b (patch)
treedaab4da1e2c5504611c9d10825dccb7094750d58
parent0aa4bfaab8f7452ad1c972e60e3e0745fa16f9b6 (diff)
downloademacs-c306848c0fe830127ee8d4fd936f17f341ad179b.tar.gz
emacs-c306848c0fe830127ee8d4fd936f17f341ad179b.zip
Fix an error in tramp-sh-inotifywait-process-filter
* lisp/net/tramp-sh.el (tramp-sh-inotifywait-process-filter): Add default FILE to returned event, if inotifywait doesn't tell us.
-rw-r--r--lisp/net/tramp-sh.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 6a82fef4f70..3399b961b2a 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -3785,7 +3785,8 @@ file-notify events."
3785 (intern-soft 3785 (intern-soft
3786 (replace-regexp-in-string "_" "-" (downcase x)))) 3786 (replace-regexp-in-string "_" "-" (downcase x))))
3787 (split-string (match-string 1 line) "," 'omit)) 3787 (split-string (match-string 1 line) "," 'omit))
3788 (match-string 3 line)))) 3788 (or (match-string 3 line)
3789 (file-name-nondirectory (process-get proc 'watch-name))))))
3789 ;; Usually, we would add an Emacs event now. Unfortunately, 3790 ;; Usually, we would add an Emacs event now. Unfortunately,
3790 ;; `unread-command-events' does not accept several events at 3791 ;; `unread-command-events' does not accept several events at
3791 ;; once. Therefore, we apply the handler directly. 3792 ;; once. Therefore, we apply the handler directly.