aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/filenotify.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/filenotify.el b/lisp/filenotify.el
index 23029427760..eb869cf66a9 100644
--- a/lisp/filenotify.el
+++ b/lisp/filenotify.el
@@ -379,14 +379,14 @@ FILE is the name of the file whose event is being reported."
379 379
380 ;; Modify `file-notify-descriptors'. 380 ;; Modify `file-notify-descriptors'.
381 (setq file (unless (file-directory-p file) (file-name-nondirectory file)) 381 (setq file (unless (file-directory-p file) (file-name-nondirectory file))
382 desc (file-notify--descriptor desc file) 382 desc (if (consp desc) (car desc) desc)
383 registered (gethash desc file-notify-descriptors) 383 registered (gethash desc file-notify-descriptors)
384 entry `(,file . ,callback)) 384 entry `(,file . ,callback))
385 (unless (member entry (cdr registered)) 385 (unless (member entry (cdr registered))
386 (puthash desc `(,dir ,entry . ,(cdr registered)) file-notify-descriptors)) 386 (puthash desc `(,dir ,entry . ,(cdr registered)) file-notify-descriptors))
387 387
388 ;; Return descriptor. 388 ;; Return descriptor.
389 desc)) 389 (file-notify--descriptor desc file)))
390 390
391(defun file-notify-rm-watch (descriptor) 391(defun file-notify-rm-watch (descriptor)
392 "Remove an existing watch specified by its DESCRIPTOR. 392 "Remove an existing watch specified by its DESCRIPTOR.