diff options
| -rw-r--r-- | lisp/filenotify.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/filenotify.el b/lisp/filenotify.el index f8a53631135..61b6d240e6e 100644 --- a/lisp/filenotify.el +++ b/lisp/filenotify.el | |||
| @@ -197,8 +197,10 @@ EVENT is the cadr of the event in `file-notify-handle-event' | |||
| 197 | '(attribute-changed changed created deleted renamed)) | 197 | '(attribute-changed changed created deleted renamed)) |
| 198 | action) | 198 | action) |
| 199 | ((memq action '(moved rename)) | 199 | ((memq action '(moved rename)) |
| 200 | (setq file1 (file-notify--event-file1-name event)) | 200 | ;; The kqueue rename event does not return file1 in |
| 201 | 'renamed) | 201 | ;; case a file monitor is established. |
| 202 | (if (setq file1 (file-notify--event-file1-name event)) | ||
| 203 | 'renamed 'deleted)) | ||
| 202 | ((eq action 'ignored) | 204 | ((eq action 'ignored) |
| 203 | (setq stopped t actions nil)) | 205 | (setq stopped t actions nil)) |
| 204 | ((memq action '(attrib link)) 'attribute-changed) | 206 | ((memq action '(attrib link)) 'attribute-changed) |