From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 9 Sep 2015 20:21:59 +0000 (-0400)
Subject: * lisp/filenotify.el: Use lexical-binding
X-Git-Tag: emacs-25.0.90~1224^2~174
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=75a351bc6fee0dcba72bce96706ba0c18b2df111;p=emacs.git

* lisp/filenotify.el: Use lexical-binding

(file-notify-add-watch): Avoid add-to-list.
---

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