diff options
| author | Andreas Politz <politza@hochschule-trier.de> | 2017-03-30 17:44:37 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2017-03-30 17:48:20 -0700 |
| commit | 43203708d41e54b860f9bd987f1af3c4ca38a46a (patch) | |
| tree | 52d4e39f34bee3681621b2ea5b1a1fca0ea30c84 /lisp/filenotify.el | |
| parent | eeaa707eb6c437b4a23d353eca5de1dc21bf7b24 (diff) | |
| download | emacs-43203708d41e54b860f9bd987f1af3c4ca38a46a.tar.gz emacs-43203708d41e54b860f9bd987f1af3c4ca38a46a.tar.bz2 emacs-43203708d41e54b860f9bd987f1af3c4ca38a46a.zip | |
Minor filenotify.el fixes
* lisp/filenotify.el: Require subr-x.
(file-notify-callback): Use equal, not eq.
Diffstat (limited to 'lisp/filenotify.el')
| -rw-r--r-- | lisp/filenotify.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/filenotify.el b/lisp/filenotify.el index c3d7d7223a7..dbf19cf2f20 100644 --- a/lisp/filenotify.el +++ b/lisp/filenotify.el @@ -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)) |