/[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.23 by pj, Fri Nov 2 20:34:34 2001 UTC revision 1.24 by pj, Tue Dec 11 06:22:43 2001 UTC
# Line 481  static char system_error_msg[] = Line 481  static char system_error_msg[] =
481    "(Clipboard interface failure; clipboard data not set.)";    "(Clipboard interface failure; clipboard data not set.)";
482    
483  DEFUN ("w16-set-clipboard-data", Fw16_set_clipboard_data, Sw16_set_clipboard_data, 1, 2, 0,  DEFUN ("w16-set-clipboard-data", Fw16_set_clipboard_data, Sw16_set_clipboard_data, 1, 2, 0,
484         "This sets the clipboard data to the given text.")         doc: /* This sets the clipboard data to the given text.  */)
485      (string, frame)       (string, frame)
486      Lisp_Object string, frame;       Lisp_Object string, frame;
487  {  {
488    unsigned ok = 1, put_status = 0;    unsigned ok = 1, put_status = 0;
489    int nbytes;    int nbytes;
# Line 592  DEFUN ("w16-set-clipboard-data", Fw16_se Line 592  DEFUN ("w16-set-clipboard-data", Fw16_se
592  }  }
593    
594  DEFUN ("w16-get-clipboard-data", Fw16_get_clipboard_data, Sw16_get_clipboard_data, 0, 1, 0,  DEFUN ("w16-get-clipboard-data", Fw16_get_clipboard_data, Sw16_get_clipboard_data, 0, 1, 0,
595         "This gets the clipboard data in text format.")         doc: /* This gets the clipboard data in text format.  */)
596       (frame)       (frame)
597       Lisp_Object frame;       Lisp_Object frame;
598  {  {
# Line 691  DEFUN ("w16-get-clipboard-data", Fw16_ge Line 691  DEFUN ("w16-get-clipboard-data", Fw16_ge
691  /* Support checking for a clipboard selection. */  /* Support checking for a clipboard selection. */
692    
693  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,
694    0, 1, 0,         0, 1, 0,
695    "Whether there is an owner for the given X Selection.\n\         doc: /* Whether there is an owner for the given X Selection.
696  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
697  the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.\n\  the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.
698  \(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.)
699  For convenience, the symbol nil is the same as `PRIMARY',\n\  For convenience, the symbol nil is the same as `PRIMARY',
700  and t is the same as `SECONDARY'.")  and t is the same as `SECONDARY'.  */)
701    (selection)       (selection)
702       Lisp_Object selection;       Lisp_Object selection;
703  {  {
704    CHECK_SYMBOL (selection);    CHECK_SYMBOL (selection);
# Line 741  syms_of_win16select () Line 741  syms_of_win16select ()
741    defsubr (&Sx_selection_exists_p);    defsubr (&Sx_selection_exists_p);
742    
743    DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system,    DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system,
744      "Coding system for communicating with other X clients.\n\                 doc: /* Coding system for communicating with other X clients.
745  When sending or receiving text via cut_buffer, selection, and clipboard,\n\  When sending or receiving text via cut_buffer, selection, and clipboard,
746  the text is encoded or decoded by this coding system.\n\  the text is encoded or decoded by this coding system.
747  A default value is `iso-latin-1-dos'");  A default value is `iso-latin-1-dos'.  */);
748    Vselection_coding_system=intern ("iso-latin-1-dos");    Vselection_coding_system=intern ("iso-latin-1-dos");
749    
750    DEFVAR_LISP ("next-selection-coding-system", &Vnext_selection_coding_system,    DEFVAR_LISP ("next-selection-coding-system", &Vnext_selection_coding_system,
751      "Coding system for the next communication with other X clients.\n\                 doc: /* Coding system for the next communication with other X clients.
752  Usually, `selection-coding-system' is used for communicating with\n\  Usually, `selection-coding-system' is used for communicating with
753  other X clients.   But, if this variable is set, it is used for the\n\  other X clients.   But, if this variable is set, it is used for the
754  next communication only.   After the communication, this variable is\n\  next communication only.   After the communication, this variable is
755  set to nil.");  set to nil.  */);
756    Vnext_selection_coding_system = Qnil;    Vnext_selection_coding_system = Qnil;
757    
758    QPRIMARY   = intern ("PRIMARY");      staticpro (&QPRIMARY);    QPRIMARY   = intern ("PRIMARY");      staticpro (&QPRIMARY);

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

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