/[emacs]/emacs/src/xselect.c
ViewVC logotype

Diff of /emacs/src/xselect.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.127 by schwab, Wed Mar 12 23:48:40 2003 UTC revision 1.128 by rms, Sun Apr 6 20:35:06 2003 UTC
# Line 425  x_get_local_selection (selection_symbol, Line 425  x_get_local_selection (selection_symbol,
425    
426        CHECK_SYMBOL (target_type);        CHECK_SYMBOL (target_type);
427        handler_fn = Fcdr (Fassq (target_type, Vselection_converter_alist));        handler_fn = Fcdr (Fassq (target_type, Vselection_converter_alist));
428          /* gcpro is not needed here since nothing but HANDLER_FN
429             is live, and that ought to be a symbol.  */
430    
431        if (!NILP (handler_fn))        if (!NILP (handler_fn))
432          value = call3 (handler_fn,          value = call3 (handler_fn,
433                         selection_symbol, (local_request ? Qnil : target_type),                         selection_symbol, (local_request ? Qnil : target_type),
# Line 837  x_handle_selection_request (event) Line 840  x_handle_selection_request (event)
840    
841   DONE:   DONE:
842    
   UNGCPRO;  
   
843    /* Let random lisp code notice that the selection has been asked for.  */    /* Let random lisp code notice that the selection has been asked for.  */
844    {    {
845      Lisp_Object rest;      Lisp_Object rest;
# Line 847  x_handle_selection_request (event) Line 848  x_handle_selection_request (event)
848        for (; CONSP (rest); rest = Fcdr (rest))        for (; CONSP (rest); rest = Fcdr (rest))
849          call3 (Fcar (rest), selection_symbol, target_symbol, successful_p);          call3 (Fcar (rest), selection_symbol, target_symbol, successful_p);
850    }    }
851    
852      UNGCPRO;
853  }  }
854    
855  /* Handle a SelectionClear event EVENT, which indicates that some  /* Handle a SelectionClear event EVENT, which indicates that some

Legend:
Removed from v.1.127  
changed lines
  Added in v.1.128

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26