diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2016-12-30 20:04:33 +0100 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2016-12-30 20:04:33 +0100 |
commit | aef40049e3b81972703d3bde47b0961bcb08d7e1 (patch) | |
tree | 461422f149c64ad8fe2e166b4e229f18fec3d2e8 /src/gfilenotify.c | |
parent | 83cc8a19b45cb2279c128b781e79d81bb91aac58 (diff) | |
download | emacs-aef40049e3b81972703d3bde47b0961bcb08d7e1.tar.gz |
* src/gfilenotify.c (Fgfile_monitor_name): Return a symbol.
Diffstat (limited to 'src/gfilenotify.c')
-rw-r--r-- | src/gfilenotify.c | 7 |
1 files changed, 3 insertions, 4 deletions
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))); } } |