[Emacs-diffs] master aef4004: * src/gfilenotify.c (Fgfile_monitor_name): Return a symbol.

[Michael Albinus]

branch: master
commit aef40049e3b81972703d3bde47b0961bcb08d7e1
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    * src/gfilenotify.c (Fgfile_monitor_name): Return a symbol.
---
 src/gfilenotify.c |    7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/gfilenotify.c b/src/gfilenotify.c
index 1ad989a..18ccfe4 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)));
     }
 }