[Emacs-diffs] Changes to emacs/src/w16select.c

[Pavel Janík]

Index: emacs/src/w16select.c
diff -c emacs/src/w16select.c:1.23 emacs/src/w16select.c:1.24
*** emacs/src/w16select.c:1.23  Fri Nov  2 15:34:34 2001
--- emacs/src/w16select.c       Tue Dec 11 01:22:43 2001
***************
*** 481,489 ****
    "(Clipboard interface failure; clipboard data not set.)";
  
  DEFUN ("w16-set-clipboard-data", Fw16_set_clipboard_data, 
Sw16_set_clipboard_data, 1, 2, 0,
!        "This sets the clipboard data to the given text.")
!     (string, frame)
!     Lisp_Object string, frame;
  {
    unsigned ok = 1, put_status = 0;
    int nbytes;
--- 481,489 ----
    "(Clipboard interface failure; clipboard data not set.)";
  
  DEFUN ("w16-set-clipboard-data", Fw16_set_clipboard_data, 
Sw16_set_clipboard_data, 1, 2, 0,
!        doc: /* This sets the clipboard data to the given text.  */)
!      (string, frame)
!      Lisp_Object string, frame;
  {
    unsigned ok = 1, put_status = 0;
    int nbytes;
***************
*** 592,598 ****
  }
  
  DEFUN ("w16-get-clipboard-data", Fw16_get_clipboard_data, 
Sw16_get_clipboard_data, 0, 1, 0,
!        "This gets the clipboard data in text format.")
       (frame)
       Lisp_Object frame;
  {
--- 592,598 ----
  }
  
  DEFUN ("w16-get-clipboard-data", Fw16_get_clipboard_data, 
Sw16_get_clipboard_data, 0, 1, 0,
!        doc: /* This gets the clipboard data in text format.  */)
       (frame)
       Lisp_Object frame;
  {
***************
*** 691,704 ****
  /* Support checking for a clipboard selection. */
  
  DEFUN ("x-selection-exists-p", Fx_selection_exists_p, Sx_selection_exists_p,
!   0, 1, 0,
!   "Whether there is an owner for the given X Selection.\n\
! The arg should be the name of the selection in question, typically one of\n\
! the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.\n\
! \(Those are literal upper-case symbol names, since that's what X expects.)\n\
! For convenience, the symbol nil is the same as `PRIMARY',\n\
! and t is the same as `SECONDARY'.")
!   (selection)
       Lisp_Object selection;
  {
    CHECK_SYMBOL (selection);
--- 691,704 ----
  /* Support checking for a clipboard selection. */
  
  DEFUN ("x-selection-exists-p", Fx_selection_exists_p, Sx_selection_exists_p,
!        0, 1, 0,
!        doc: /* Whether there is an owner for the given X Selection.
! The arg should be the name of the selection in question, typically one of
! the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.
! \(Those are literal upper-case symbol names, since that's what X expects.)
! For convenience, the symbol nil is the same as `PRIMARY',
! and t is the same as `SECONDARY'.  */)
!      (selection)
       Lisp_Object selection;
  {
    CHECK_SYMBOL (selection);
***************
*** 741,758 ****
    defsubr (&Sx_selection_exists_p);
  
    DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system,
!     "Coding system for communicating with other X clients.\n\
! When sending or receiving text via cut_buffer, selection, and clipboard,\n\
! the text is encoded or decoded by this coding system.\n\
! A default value is `iso-latin-1-dos'");
    Vselection_coding_system=intern ("iso-latin-1-dos");
  
    DEFVAR_LISP ("next-selection-coding-system", &Vnext_selection_coding_system,
!     "Coding system for the next communication with other X clients.\n\
! Usually, `selection-coding-system' is used for communicating with\n\
! other X clients.   But, if this variable is set, it is used for the\n\
! next communication only.   After the communication, this variable is\n\
! set to nil.");
    Vnext_selection_coding_system = Qnil;
  
    QPRIMARY   = intern ("PRIMARY");    staticpro (&QPRIMARY);
--- 741,758 ----
    defsubr (&Sx_selection_exists_p);
  
    DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system,
!              doc: /* Coding system for communicating with other X clients.
! When sending or receiving text via cut_buffer, selection, and clipboard,
! the text is encoded or decoded by this coding system.
! A default value is `iso-latin-1-dos'.  */);
    Vselection_coding_system=intern ("iso-latin-1-dos");
  
    DEFVAR_LISP ("next-selection-coding-system", &Vnext_selection_coding_system,
!              doc: /* Coding system for the next communication with other X 
clients.
! Usually, `selection-coding-system' is used for communicating with
! other X clients.   But, if this variable is set, it is used for the
! next communication only.   After the communication, this variable is
! set to nil.  */);
    Vnext_selection_coding_system = Qnil;
  
    QPRIMARY   = intern ("PRIMARY");    staticpro (&QPRIMARY);