diff options
| author | Michael Albinus | 2015-11-16 08:20:22 +0100 |
|---|---|---|
| committer | Michael Albinus | 2015-11-16 08:20:22 +0100 |
| commit | 71d88ecab786e8df1490c1dbb8cba3479c29ca12 (patch) | |
| tree | 43cab968be3e3f865a09b392f6a4437530ccfc60 | |
| parent | 54e22f958b2e277830a01a5a1b0fe51ce1b6f405 (diff) | |
| download | emacs-71d88ecab786e8df1490c1dbb8cba3479c29ca12.tar.gz emacs-71d88ecab786e8df1490c1dbb8cba3479c29ca12.zip | |
* lisp/filenotify.el (file-notify-add-watch): Fix thinko.
| -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. |