[Emacs-diffs] scratch/kqueue 90d6c69 07/18: * lisp/filenotify.el (file-notify-add-watch): Fix thinko.

[Michael Albinus]

branch: scratch/kqueue
commit 90d6c698da735cf3e54d69816995f70e53060bac
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.