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

Diff of /emacs/src/w16select.c

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

revision 1.22 by gerd, Fri Oct 5 09:51:48 2001 UTC revision 1.23 by pj, Fri Nov 2 20:34:34 2001 UTC
# Line 491  DEFUN ("w16-set-clipboard-data", Fw16_se Line 491  DEFUN ("w16-set-clipboard-data", Fw16_se
491    int charset_info;    int charset_info;
492    int no_crlf_conversion;    int no_crlf_conversion;
493    
494    CHECK_STRING (string, 0);    CHECK_STRING (string);
495        
496    if (NILP (frame))    if (NILP (frame))
497      frame = Fselected_frame ();      frame = Fselected_frame ();
498    
499    CHECK_LIVE_FRAME (frame, 0);    CHECK_LIVE_FRAME (frame);
500    if ( !FRAME_MSDOS_P (XFRAME (frame)))    if ( !FRAME_MSDOS_P (XFRAME (frame)))
501      goto done;      goto done;
502        
# Line 605  DEFUN ("w16-get-clipboard-data", Fw16_ge Line 605  DEFUN ("w16-get-clipboard-data", Fw16_ge
605    if (NILP (frame))    if (NILP (frame))
606      frame = Fselected_frame ();      frame = Fselected_frame ();
607    
608    CHECK_LIVE_FRAME (frame, 0);    CHECK_LIVE_FRAME (frame);
609    if ( !FRAME_MSDOS_P (XFRAME (frame)))    if ( !FRAME_MSDOS_P (XFRAME (frame)))
610      goto done;      goto done;
611        
# Line 701  and t is the same as `SECONDARY'.") Line 701  and t is the same as `SECONDARY'.")
701    (selection)    (selection)
702       Lisp_Object selection;       Lisp_Object selection;
703  {  {
704    CHECK_SYMBOL (selection, 0);    CHECK_SYMBOL (selection);
705    
706    /* Return nil for SECONDARY selection.  For PRIMARY (or nil)    /* Return nil for SECONDARY selection.  For PRIMARY (or nil)
707       selection, check if there is some text on the kill-ring;       selection, check if there is some text on the kill-ring;

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

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