diff options
| author | Michael Albinus | 2019-07-31 14:54:08 +0200 |
|---|---|---|
| committer | Michael Albinus | 2019-07-31 14:54:08 +0200 |
| commit | c306848c0fe830127ee8d4fd936f17f341ad179b (patch) | |
| tree | daab4da1e2c5504611c9d10825dccb7094750d58 | |
| parent | 0aa4bfaab8f7452ad1c972e60e3e0745fa16f9b6 (diff) | |
| download | emacs-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.el | 3 |
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. |