Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/filenotify.el: Use lexical-binding

Browse source 
(file-notify-add-watch): Avoid add-to-list.
This commit is contained in:
Stefan Monnier 2015-09-09 16:21:59 -04:00
parent 1c5b7ba876
commit 75a351bc6f
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/filenotify.el
View file

@ -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)))