[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/kqueue 71d88ec: * lisp/filenotify.el (file-notify-
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] scratch/kqueue 71d88ec: * lisp/filenotify.el (file-notify-add-watch): Fix thinko. |
Date: |
Mon, 16 Nov 2015 07:20:35 +0000 |
branch: scratch/kqueue
commit 71d88ecab786e8df1490c1dbb8cba3479c29ca12
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
* lisp/filenotify.el (file-notify-add-watch): Fix thinko.
---
lisp/filenotify.el | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/filenotify.el b/lisp/filenotify.el
index 2302942..eb869cf 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."
;; Modify `file-notify-descriptors'.
(setq file (unless (file-directory-p file) (file-name-nondirectory file))
- desc (file-notify--descriptor desc file)
+ desc (if (consp desc) (car desc) desc)
registered (gethash desc file-notify-descriptors)
entry `(,file . ,callback))
(unless (member entry (cdr registered))
(puthash desc `(,dir ,entry . ,(cdr registered))
file-notify-descriptors))
;; Return descriptor.
- desc))
+ (file-notify--descriptor desc file)))
(defun file-notify-rm-watch (descriptor)
"Remove an existing watch specified by its DESCRIPTOR.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] scratch/kqueue 71d88ec: * lisp/filenotify.el (file-notify-add-watch): Fix thinko.,
Michael Albinus <=