X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fselect.c;h=891a45c7531cd7f326abf2473ddb67fa2ee5968f;hb=3aca7317dd930beecbddba646284279744087e69;hp=ecc22ca10411b8340bf59662e2a7a394d6777260;hpb=140fb029a954e85e8e62e0ebd23e7bc43526b57b;p=chise%2Fxemacs-chise.git-

diff --git a/src/select.c b/src/select.c
index ecc22ca..891a45c 100644
--- a/src/select.c
+++ b/src/select.c
@@ -203,6 +203,7 @@ anything that the functions on selection-converter-alist know about.
        (selection_name, selection_value, device))
 {
   Lisp_Object selection_time, selection_data, prev_value;
+  struct gcpro gcpro1;
 
   CHECK_SYMBOL (selection_name);
   if (NILP (selection_value)) error ("selection-value may not be nil.");
@@ -214,6 +215,8 @@ anything that the functions on selection-converter-alist know about.
   selection_data = list3 (selection_name,
 			  selection_value,
 			  Qnil);
+  GCPRO1 (selection_data);
+
   prev_value = assq_no_quit (selection_name, Vselection_alist);
   Vselection_alist = Fcons (selection_data, Vselection_alist);
     
@@ -242,6 +245,8 @@ anything that the functions on selection-converter-alist know about.
 
   Fsetcar (XCDR (XCDR (selection_data)), selection_time);
 
+  UNGCPRO;
+
   return selection_value;
 }