From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 30 Dec 2016 19:04:33 +0000 (+0100)
Subject: * src/gfilenotify.c (Fgfile_monitor_name): Return a symbol.
X-Git-Tag: emacs-26.0.90~989
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aef40049e3b81972703d3bde47b0961bcb08d7e1;p=emacs.git

* src/gfilenotify.c (Fgfile_monitor_name): Return a symbol.
---

diff --git a/src/gfilenotify.c b/src/gfilenotify.c
index 1ad989a0d95..18ccfe4c462 100644
--- a/src/gfilenotify.c
+++ b/src/gfilenotify.c
@@ -281,8 +281,8 @@ invalid.  */)
 DEFUN ("gfile-monitor-name", Fgfile_monitor_name, Sgfile_monitor_name, 1, 1, 0,
        doc: /* Return the internal monitor name for WATCH-DESCRIPTOR.
 
-The result is a string, either "GInotifyFileMonitor",
-"GKqueueFileMonitor", or "GPollFileMonitor".
+The result is a symbol, either `GInotifyFileMonitor',
+`GKqueueFileMonitor', `GFamFileMonitor', or `GPollFileMonitor'.
 
 WATCH-DESCRIPTOR should be an object returned by `gfile-add-watch'.
 If WATCH-DESCRIPTOR is not valid, nil is returned.  */)
@@ -292,9 +292,8 @@ If WATCH-DESCRIPTOR is not valid, nil is returned.  */)
     return Qnil;
   else
     {
-      Lisp_Object watch_object = Fassoc (watch_descriptor, watch_list);
       GFileMonitor *monitor = XINTPTR (watch_descriptor);
-      return build_string (G_OBJECT_TYPE_NAME (monitor));
+      return Fmake_symbol (build_string (G_OBJECT_TYPE_NAME (monitor)));
     }
 }