/* 16-bit Windows Selection processing for emacs on MS-Windows
Copyright (C) 1996, 1997, 2001 Free Software Foundation.
-
+
This file is part of GNU Emacs.
GNU Emacs is free software; you can redistribute it and/or modify
empty_clipboard ()
{
__dpmi_regs regs;
-
+
/* Calls Int 2Fh/AX=1702h
Return Values AX == 0: Error occurred
<> 0: OK, Clipboard emptied */
the next loop by an additional test. */
register unsigned char *lcdp =
last_clipboard_text == NULL ? &null_char : last_clipboard_text;
-
+
/* Copy data from low memory, remove CR
characters before LF if needed. */
_farsetsel (_dos_ds);
Lisp_Object string, frame;
{
unsigned ok = 1, put_status = 0;
- int nbytes;
+ int nbytes, charset_info, no_crlf_conversion;
unsigned char *src, *dst = NULL;
- int charset_info;
- int no_crlf_conversion;
CHECK_STRING (string);
unsigned data_size, truelen;
unsigned char *htext;
Lisp_Object ret = Qnil;
- int no_crlf_conversion;
- int require_encoding = 0;
+ int no_crlf_conversion, require_encoding = 0;
if (NILP (frame))
frame = Fselected_frame ();
unblock:
UNBLOCK_INPUT;
-
+
done:
-
+
return (ret);
}
return Qnil;
}
-void
+void
syms_of_win16select ()
{
defsubr (&Sw16_set_clipboard_data);