/[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.21 by pj, Fri Nov 2 20:35:38 2001 UTC revision 1.22 by jasonr, Mon Nov 12 23:53:33 2001 UTC
# Line 51  static size_t clipboard_storage_size = 0 Line 51  static size_t clipboard_storage_size = 0
51    
52  #if 0  #if 0
53  DEFUN ("w32-open-clipboard", Fw32_open_clipboard, Sw32_open_clipboard, 0, 1, 0,  DEFUN ("w32-open-clipboard", Fw32_open_clipboard, Sw32_open_clipboard, 0, 1, 0,
54         "This opens the clipboard with the given frame pointer.")         doc: /* This opens the clipboard with the given frame pointer.  */)
55       (frame)       (frame)
56       Lisp_Object frame;       Lisp_Object frame;
57  {  {
# Line 69  DEFUN ("w32-open-clipboard", Fw32_open_c Line 69  DEFUN ("w32-open-clipboard", Fw32_open_c
69    return (ok ? frame : Qnil);    return (ok ? frame : Qnil);
70  }  }
71    
72  DEFUN ("w32-empty-clipboard", Fw32_empty_clipboard, Sw32_empty_clipboard, 0, 0, 0,  DEFUN ("w32-empty-clipboard", Fw32_empty_clipboard,
73         "This empties the clipboard and assigns ownership to the window which opened the clipboard.")         Sw32_empty_clipboard, 0, 0, 0,
74           doc: /* Empty the clipboard.
75    Assigns ownership of the clipboard to the window which opened it.  */)
76       ()       ()
77  {  {
78    BOOL ok = FALSE;    BOOL ok = FALSE;
# Line 84  DEFUN ("w32-empty-clipboard", Fw32_empty Line 86  DEFUN ("w32-empty-clipboard", Fw32_empty
86    return (ok ? Qt : Qnil);    return (ok ? Qt : Qnil);
87  }  }
88    
89  DEFUN ("w32-close-clipboard", Fw32_close_clipboard, Sw32_close_clipboard, 0, 0, 0,  DEFUN ("w32-close-clipboard", Fw32_close_clipboard,
90         "This closes the clipboard.")         Sw32_close_clipboard, 0, 0, 0,
91           doc: /* Close the clipboard.  */)
92       ()       ()
93  {  {
94    BOOL ok = FALSE;    BOOL ok = FALSE;
# Line 101  DEFUN ("w32-close-clipboard", Fw32_close Line 104  DEFUN ("w32-close-clipboard", Fw32_close
104    
105  #endif  #endif
106    
107  DEFUN ("w32-set-clipboard-data", Fw32_set_clipboard_data, Sw32_set_clipboard_data, 1, 2, 0,  DEFUN ("w32-set-clipboard-data", Fw32_set_clipboard_data,
108         "This sets the clipboard data to the given text.")         Sw32_set_clipboard_data, 1, 2, 0,
109           doc: /* This sets the clipboard data to the given text.  */)
110      (string, frame)      (string, frame)
111      Lisp_Object string, frame;      Lisp_Object string, frame;
112  {  {
# Line 248  DEFUN ("w32-set-clipboard-data", Fw32_se Line 252  DEFUN ("w32-set-clipboard-data", Fw32_se
252    return (ok ? string : Qnil);    return (ok ? string : Qnil);
253  }  }
254    
255  DEFUN ("w32-get-clipboard-data", Fw32_get_clipboard_data, Sw32_get_clipboard_data, 0, 1, 0,  DEFUN ("w32-get-clipboard-data", Fw32_get_clipboard_data,
256         "This gets the clipboard data in text format.")         Sw32_get_clipboard_data, 0, 1, 0,
257           doc: /* This gets the clipboard data in text format.  */)
258       (frame)       (frame)
259       Lisp_Object frame;       Lisp_Object frame;
260  {  {
# Line 394  DEFUN ("w32-get-clipboard-data", Fw32_ge Line 399  DEFUN ("w32-get-clipboard-data", Fw32_ge
399  /* Support checking for a clipboard selection. */  /* Support checking for a clipboard selection. */
400    
401  DEFUN ("x-selection-exists-p", Fx_selection_exists_p, Sx_selection_exists_p,  DEFUN ("x-selection-exists-p", Fx_selection_exists_p, Sx_selection_exists_p,
402    0, 1, 0,         0, 1, 0,
403    "Whether there is an owner for the given X Selection.\n\         doc: /* Whether there is an owner for the given X Selection.
404  The arg should be the name of the selection in question, typically one of\n\  The arg should be the name of the selection in question, typically one of
405  the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.\n\  the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.
406  \(Those are literal upper-case symbol names, since that's what X expects.)\n\  \(Those are literal upper-case symbol names, since that's what X expects.)
407  For convenience, the symbol nil is the same as `PRIMARY',\n\  For convenience, the symbol nil is the same as `PRIMARY',
408  and t is the same as `SECONDARY'.")  and t is the same as `SECONDARY'.  */)
409    (selection)    (selection)
410       Lisp_Object selection;       Lisp_Object selection;
411  {  {
# Line 442  syms_of_w32select () Line 447  syms_of_w32select ()
447    defsubr (&Sx_selection_exists_p);    defsubr (&Sx_selection_exists_p);
448    
449    DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system,    DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system,
450      "Coding system for communicating with other X clients.\n\                 doc: /* Coding system for communicating with other programs.
451  When sending or receiving text via cut_buffer, selection, and clipboard,\n\  When sending or receiving text via cut_buffer, selection, and clipboard,
452  the text is encoded or decoded by this coding system.\n\  the text is encoded or decoded by this coding system.  */);
 A default value is `compound-text'");  
453    Vselection_coding_system=intern ("iso-latin-1-dos");    Vselection_coding_system=intern ("iso-latin-1-dos");
454    
455    DEFVAR_LISP ("next-selection-coding-system", &Vnext_selection_coding_system,    DEFVAR_LISP ("next-selection-coding-system", &Vnext_selection_coding_system,
456      "Coding system for the next communication with other X clients.\n\                 doc: /* Coding system for the next communication with other programs.
457  Usually, `selection-coding-system' is used for communicating with\n\  Usually, `selection-coding-system' is used for communicating with
458  other X clients.   But, if this variable is set, it is used for the\n\  other programs.   But, if this variable is set, it is used for the
459  next communication only.   After the communication, this variable is\n\  next communication only.   After the communication, this variable is
460  set to nil.");  set to nil.  */);
461    Vnext_selection_coding_system = Qnil;    Vnext_selection_coding_system = Qnil;
462    
463    QCLIPBOARD = intern ("CLIPBOARD");    staticpro (&QCLIPBOARD);    QCLIPBOARD = intern ("CLIPBOARD");    staticpro (&QCLIPBOARD);

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

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