diff options
| -rw-r--r-- | lisp/filenotify.el | 4 |
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. |