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

Diff of /emacs/src/macselect.c

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

revision 1.2 by miles, Mon Apr 25 01:46:56 2005 UTC revision 1.3 by mituharu, Fri May 6 08:03:08 2005 UTC
# Line 98  static Lisp_Object Vselection_converter_ Line 98  static Lisp_Object Vselection_converter_
98     selection type with a scrap flavor type via `mac-ostype'.  */     selection type with a scrap flavor type via `mac-ostype'.  */
99  static Lisp_Object Qmac_scrap_name, Qmac_ostype;  static Lisp_Object Qmac_scrap_name, Qmac_ostype;
100    
101    #ifdef MAC_OSX
102  /* Selection name for communication via Services menu.  */  /* Selection name for communication via Services menu.  */
103  static Lisp_Object Vmac_services_selection;  static Lisp_Object Vmac_services_selection;
104    #endif
105    
106  /* Get a reference to the scrap corresponding to the symbol SYM.  The  /* Get a reference to the scrap corresponding to the symbol SYM.  The
107     reference is set to *SCRAP, and it becomes NULL if there's no     reference is set to *SCRAP, and it becomes NULL if there's no
# Line 455  x_own_selection (selection_name, selecti Line 457  x_own_selection (selection_name, selecti
457              value = call3 (handler_fn, selection_name,              value = call3 (handler_fn, selection_name,
458                             type, selection_value);                             type, selection_value);
459    
460            if (CONSP (value)            if (STRINGP (value))
461                && EQ (XCAR (value), type)              err = put_scrap_string (scrap, type, value);
462                && STRINGP (XCDR (value)))            else if (CONSP (value)
463                       && EQ (XCAR (value), type)
464                       && STRINGP (XCDR (value)))
465              err = put_scrap_string (scrap, type, XCDR (value));              err = put_scrap_string (scrap, type, XCDR (value));
466          }          }
467    
# Line 622  x_clear_frame_selections (f) Line 626  x_clear_frame_selections (f)
626        hooks = Vx_lost_selection_functions;        hooks = Vx_lost_selection_functions;
627        selection_symbol = Fcar (Fcar (Vselection_alist));        selection_symbol = Fcar (Fcar (Vselection_alist));
628    
629        if (!EQ (hooks, Qunbound))        if (!EQ (hooks, Qunbound)
630              && !NILP (Fx_selection_owner_p (selection_symbol)))
631          {          {
632            for (; CONSP (hooks); hooks = Fcdr (hooks))            for (; CONSP (hooks); hooks = Fcdr (hooks))
633              call1 (Fcar (hooks), selection_symbol);              call1 (Fcar (hooks), selection_symbol);
# Line 646  x_clear_frame_selections (f) Line 651  x_clear_frame_selections (f)
651          hooks = Vx_lost_selection_functions;          hooks = Vx_lost_selection_functions;
652          selection_symbol = Fcar (Fcar (XCDR (rest)));          selection_symbol = Fcar (Fcar (XCDR (rest)));
653    
654          if (!EQ (hooks, Qunbound))          if (!EQ (hooks, Qunbound)
655              && !NILP (Fx_selection_owner_p (selection_symbol)))
656            {            {
657              for (; CONSP (hooks); hooks = Fcdr (hooks))              for (; CONSP (hooks); hooks = Fcdr (hooks))
658                call1 (Fcar (hooks), selection_symbol);                call1 (Fcar (hooks), selection_symbol);

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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