* emacs.c (main) [HAVE_GFILENOTIFY]: Call globals_of_gfilenotify.

* gfilenotify.c (globals_of_gfilenotify): New function.
(syms_of_gfilenotify): Move global initialization there.

* lisp.h (globals_of_gfilenotify) [HAVE_GFILENOTIFY]: Add prototype.

diff --git a/src/ChangeLog b/src/ChangeLog
index bfb9b1a4c83acc7626d034914c502707c06ffa65..67b1b482f3fb5b711080e065456245bb6be5e3c8 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,12 @@
+2013-06-05  Michael Albinus  <michael.albinus@gmx.de>
+
+       * emacs.c (main) [HAVE_GFILENOTIFY]: Call globals_of_gfilenotify.
+
+       * gfilenotify.c (globals_of_gfilenotify): New function.
+       (syms_of_gfilenotify): Move global initialization there.
+
+       * lisp.h (globals_of_gfilenotify) [HAVE_GFILENOTIFY]: Add prototype.
+
 2013-06-05  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * keymap.c (Fcurrent_active_maps, Fdescribe_buffer_bindings):

diff --git a/src/emacs.c b/src/emacs.c
index 4e439a601b149e551b9ed804e2f3f88bf9c7d5a6..0035daa1da20adf28760c44e826fdcbf76f4a0d5 100644 (file)
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -1250,6 +1250,10 @@ Using an Emacs configured with --with-x-toolkit=lucid does not have this problem
     tzset ();
 #endif /* MSDOS */
 
+#ifdef HAVE_GFILENOTIFY
+  globals_of_gfilenotify ();
+#endif
+
 #ifdef WINDOWSNT
   globals_of_w32 ();
 #ifdef HAVE_W32NOTIFY

diff --git a/src/gfilenotify.c b/src/gfilenotify.c
index 4ccc430d815d1459d80fa2821941036c1d043725..9b93961f1722a7e0ea4d5a0d7fcb4b43e4280819 100644 (file)
--- a/src/gfilenotify.c
+++ b/src/gfilenotify.c
@@ -233,10 +233,15 @@ WATCH-DESCRIPTOR should be an object returned by `gfile-add-watch'.  */)
 
 \f
 void
-syms_of_gfilenotify (void)
+globals_of_gfilenotify (void)
 {
-
   g_type_init ();
+  watch_list = Qnil;
+}
+
+void
+syms_of_gfilenotify (void)
+{
 
   DEFSYM (Qgfile_add_watch, "gfile-add-watch");
   defsubr (&Sgfile_add_watch);
@@ -255,8 +260,6 @@ syms_of_gfilenotify (void)
   DEFSYM (Qunmounted, "unmounted");
   DEFSYM (Qmoved, "moved");
 
-  /* Initialize internal objects.  */
-  watch_list = Qnil;
   staticpro (&watch_list);
 
   Fprovide (intern_c_string ("gfilenotify"), Qnil);

diff --git a/src/lisp.h b/src/lisp.h
index 517d0abbb6147e42b13f2fa39872f04fa76ce241..ba36a320a8f2187c59dd54cdb0f59f8fe00ae3f6 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -3786,6 +3786,7 @@ extern Lisp_Object Qfont_param;
 
 /* Defined in gfilenotify.c */
 #ifdef HAVE_GFILENOTIFY
+extern void globals_of_gfilenotify (void);
 extern void syms_of_gfilenotify (void);
 #endif