diff options
| -rw-r--r-- | lisp/filenotify.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/filenotify.el b/lisp/filenotify.el index 4af9e90a35a..89fc3733eba 100644 --- a/lisp/filenotify.el +++ b/lisp/filenotify.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; filenotify.el --- watch files for changes on disk | 1 | ;;; filenotify.el --- watch files for changes on disk -*- lexical-binding:t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2013-2015 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2013-2015 Free Software Foundation, Inc. |
| 4 | 4 | ||
| @@ -300,11 +300,10 @@ FILE is the name of the file whose event is being reported." | |||
| 300 | ((eq file-notify--library 'w32notify) | 300 | ((eq file-notify--library 'w32notify) |
| 301 | '(file-name directory-name size last-write-time))))) | 301 | '(file-name directory-name size last-write-time))))) |
| 302 | (when (memq 'attribute-change flags) | 302 | (when (memq 'attribute-change flags) |
| 303 | (add-to-list | 303 | (push (cond |
| 304 | 'l-flags | 304 | ((eq file-notify--library 'inotify) 'attrib) |
| 305 | (cond | 305 | ((eq file-notify--library 'w32notify) 'attributes)) |
| 306 | ((eq file-notify--library 'inotify) 'attrib) | 306 | l-flags))) |
| 307 | ((eq file-notify--library 'w32notify) 'attributes))))) | ||
| 308 | 307 | ||
| 309 | ;; Call low-level function. | 308 | ;; Call low-level function. |
| 310 | (setq desc (funcall func dir l-flags 'file-notify-callback))) | 309 | (setq desc (funcall func dir l-flags 'file-notify-callback))) |