]> git.eshelyaron.com Git - emacs.git/commitdiff
Minor filenotify.el fixes
authorAndreas Politz <politza@hochschule-trier.de>
Fri, 31 Mar 2017 00:44:37 +0000 (17:44 -0700)
committerPaul Eggert <eggert@cs.ucla.edu>
Fri, 31 Mar 2017 00:48:20 +0000 (17:48 -0700)
* lisp/filenotify.el: Require subr-x.
(file-notify-callback): Use equal, not eq.

lisp/filenotify.el

index c3d7d7223a7265e8f068e4100b6241ad9a45bfed..dbf19cf2f202cce702867491219e47c402b9684c 100644 (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))