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

Diff of /emacs/src/w32select.c

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

revision 1.20 by jasonr, Tue Nov 21 19:18:13 2000 UTC revision 1.21 by pj, Fri Nov 2 20:35:38 2001 UTC
# Line 58  DEFUN ("w32-open-clipboard", Fw32_open_c Line 58  DEFUN ("w32-open-clipboard", Fw32_open_c
58    BOOL ok = FALSE;    BOOL ok = FALSE;
59        
60    if (!NILP (frame))    if (!NILP (frame))
61      CHECK_LIVE_FRAME (frame, 0);      CHECK_LIVE_FRAME (frame);
62        
63    BLOCK_INPUT;    BLOCK_INPUT;
64        
# Line 113  DEFUN ("w32-set-clipboard-data", Fw32_se Line 113  DEFUN ("w32-set-clipboard-data", Fw32_se
113    unsigned char *src;    unsigned char *src;
114    unsigned char *dst;    unsigned char *dst;
115    
116    CHECK_STRING (string, 0);    CHECK_STRING (string);
117        
118    if (!NILP (frame))    if (!NILP (frame))
119      CHECK_LIVE_FRAME (frame, 0);      CHECK_LIVE_FRAME (frame);
120        
121    BLOCK_INPUT;    BLOCK_INPUT;
122    
# Line 257  DEFUN ("w32-get-clipboard-data", Fw32_ge Line 257  DEFUN ("w32-get-clipboard-data", Fw32_ge
257    Lisp_Object ret = Qnil;    Lisp_Object ret = Qnil;
258        
259    if (!NILP (frame))    if (!NILP (frame))
260      CHECK_LIVE_FRAME (frame, 0);      CHECK_LIVE_FRAME (frame);
261        
262    BLOCK_INPUT;    BLOCK_INPUT;
263        
# Line 404  and t is the same as `SECONDARY'.") Line 404  and t is the same as `SECONDARY'.")
404    (selection)    (selection)
405       Lisp_Object selection;       Lisp_Object selection;
406  {  {
407    CHECK_SYMBOL (selection, 0);    CHECK_SYMBOL (selection);
408    
409    /* Return nil for PRIMARY and SECONDARY selections; for CLIPBOARD, check    /* Return nil for PRIMARY and SECONDARY selections; for CLIPBOARD, check
410       if the clipboard currently has valid text format contents. */       if the clipboard currently has valid text format contents. */

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

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