XEmacs 21.2.41 "Polyhymnia".

[chise/xemacs-chise.git.1] / src / gpmevent.c

diff --git a/src/gpmevent.c b/src/gpmevent.c
index a3c3d46..20c45ec 100644 (file)
--- a/src/gpmevent.c
+++ b/src/gpmevent.c
@@ -112,7 +112,7 @@ This function is the process handler for the GPM connection.
        Gpm_Event ev;
        int modifiers = 0;
        int button = 1;
-       Lisp_Object fake_event;
+       Lisp_Object fake_event = Qnil;
        Lisp_Event *event = NULL;
        struct gcpro gcpro1;
        static int num_events;
@@ -217,9 +217,9 @@ tty_get_foreign_selection (Lisp_Object selection_symbol, Lisp_Object target_type
        struct device *d = decode_device (Qnil);
        int fd = DEVICE_INFD (d);
        char c = 3;
-       Lisp_Object output_stream;
-       Lisp_Object terminal_stream;
-       Lisp_Object output_string;
+       Lisp_Object output_stream = Qnil;
+       Lisp_Object terminal_stream = Qnil ;
+       Lisp_Object output_string = Qnil;
        struct gcpro gcpro1,gcpro2,gcpro3;
 
        GCPRO3(output_stream,terminal_stream,output_string);
@@ -635,8 +635,8 @@ void vars_of_gpmevent (void)
        gpm_event_queue_tail = Qnil;
        staticpro (&gpm_event_queue);
        staticpro (&gpm_event_queue_tail);
-       pdump_wire (&gpm_event_queue);
-       pdump_wire (&gpm_event_queue_tail);
+       dump_add_root_object (&gpm_event_queue);
+       dump_add_root_object (&gpm_event_queue_tail);
 }
 
 void syms_of_gpmevent (void)