/* 16-bit Windows Selection processing for emacs on MS-Windows
-Copyright (C) 1996-1997, 2001-2013 Free Software Foundation, Inc.
+Copyright (C) 1996-1997, 2001-2014 Free Software Foundation, Inc.
This file is part of GNU Emacs.
CHECK_STRING (string);
- if (NILP (frame))
- frame = Fselected_frame ();
-
- CHECK_LIVE_FRAME (frame);
- if ( !FRAME_MSDOS_P (XFRAME (frame)))
+ if (!FRAME_MSDOS_P (decode_live_frame (frame)))
goto done;
block_input ();
Lisp_Object ret = Qnil;
int require_decoding = 0;
- if (NILP (frame))
- frame = Fselected_frame ();
-
- CHECK_LIVE_FRAME (frame);
- if ( !FRAME_MSDOS_P (XFRAME (frame)))
+ if (!FRAME_MSDOS_P (decode_live_frame (frame)))
goto done;
block_input ();
coding.mode |= CODING_MODE_LAST_BLOCK;
/* We explicitly disable composition handling because selection
data should not contain any composition sequence. */
- coding.mode &= CODING_ANNOTATION_MASK;
+ coding.common_flags &= ~CODING_ANNOTATION_MASK;
decode_coding_object (&coding, Qnil, 0, 0, truelen, truelen, Qt);
ret = coding.dst_object;
Vlast_coding_system_used = CODING_ID_NAME (coding.id);
return (ret);
}
-/* Support checking for a clipboard selection. */
+/* Support checking for a clipboard selection. */
-DEFUN ("x-selection-exists-p", Fx_selection_exists_p, Sx_selection_exists_p,
+DEFUN ("w16-selection-exists-p", Fw16_selection_exists_p, Sw16_selection_exists_p,
0, 2, 0,
doc: /* Whether there is an owner for the given X selection.
SELECTION should be the name of the selection in question, typically
{
defsubr (&Sw16_set_clipboard_data);
defsubr (&Sw16_get_clipboard_data);
- defsubr (&Sx_selection_exists_p);
+ defsubr (&Sw16_selection_exists_p);
DEFVAR_LISP ("selection-coding-system", Vselection_coding_system,
doc: /* Coding system for communicating with other programs.