diff options
Diffstat (limited to 'lisp/filenotify.el')
-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 @@ -;;; filenotify.el --- watch files for changes on disk +;;; filenotify.el --- watch files for changes on disk -*- lexical-binding:t -*- ;; Copyright (C) 2013-2015 Free Software Foundation, Inc. @@ -300,11 +300,10 @@ FILE is the name of the file whose event is being reported." ((eq file-notify--library 'w32notify) '(file-name directory-name size last-write-time))))) (when (memq 'attribute-change flags) - (add-to-list - 'l-flags - (cond - ((eq file-notify--library 'inotify) 'attrib) - ((eq file-notify--library 'w32notify) 'attributes))))) + (push (cond + ((eq file-notify--library 'inotify) 'attrib) + ((eq file-notify--library 'w32notify) 'attributes)) + l-flags))) ;; Call low-level function. (setq desc (funcall func dir l-flags 'file-notify-callback))) |