procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor filenotify.el fixes

Browse source 
* lisp/filenotify.el: Require subr-x.
(file-notify-callback): Use equal, not eq.
This commit is contained in:
Andreas Politz 2017-03-30 17:44:37 -07:00 • committed by Paul Eggert
parent eeaa707eb6
commit 43203708d4
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/filenotify.el
View file

@ -28,6 +28,7 @@
;;; Code:
(require 'cl-lib)
(require 'subr-x)
(defconst file-notify--library
(cond
@ -155,9 +156,9 @@ EVENT is the cadr of the event in `file-notify-handle-event'
;; Send pending event, if it doesn't match.
(when (and file-notify--pending-event
;; The cookie doesn't match.
(not (eq (file-notify--event-cookie
(car file-notify--pending-event))
(file-notify--event-cookie event)))
(not (equal (file-notify--event-cookie
(car file-notify--pending-event))
(file-notify--event-cookie event)))
(or
;; inotify.
(and (eq (nth 1 (car file-notify--pending-event))