/* 16-bit Windows Selection processing for emacs on MS-Windows
- Copyright (C) 1996, 1997, 2001 Free Software Foundation.
-
+ Copyright (C) 1996, 1997, 2001, 2002, 2003, 2004,
+ 2005, 2006 Free Software Foundation, Inc.
+
This file is part of GNU Emacs.
GNU Emacs is free software; you can redistribute it and/or modify
You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING. If not, write to
-the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA. */
+the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+Boston, MA 02110-1301, USA. */
/* These functions work by using WinOldAp interface. WinOldAp
(WINOLDAP.MOD) is a Microsoft Windows extension supporting
#include "buffer.h"
#include "charset.h"
#include "coding.h"
+#include "composite.h"
/* If ever some function outside this file will need to call any
clipboard-related function, the following prototypes and constants
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);
BLOCK_INPUT;
- nbytes = STRING_BYTES (XSTRING (string));
- src = XSTRING (string)->data;
+ nbytes = SBYTES (string);
+ src = SDATA (string);
/* Since we are now handling multilingual text, we must consider
encoding text for the clipboard. */
- charset_info = find_charset_in_text (src, XSTRING (string)->size, nbytes,
+ charset_info = find_charset_in_text (src, SCHARS (string), nbytes,
NULL, Qnil);
if (charset_info == 0)
&& !NILP (Ffboundp (coding.pre_write_conversion)))
{
string = run_pre_post_conversion_on_str (string, &coding, 1);
- src = XSTRING (string)->data;
- nbytes = STRING_BYTES (XSTRING (string));
+ src = SDATA (string);
+ nbytes = SBYTES (string);
}
coding.src_multibyte = 1;
coding.dst_multibyte = 0;
message2 (system_error_msg, sizeof (system_error_msg) - 1, 0);
break;
}
- sit_for (2, 0, 0, 1, 1);
+ sit_for (make_number (2), 0, 2);
}
done:
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 ();
coding.dst_multibyte = 1;
Vnext_selection_coding_system = Qnil;
coding.mode |= CODING_MODE_LAST_BLOCK;
+ /* We explicitely disable composition handling because selection
+ data should not contain any composition sequence. */
+ coding.composing = COMPOSITION_DISABLED;
truelen = get_clipboard_data (CF_OEMTEXT, htext, data_size, 1);
bufsize = decoding_buffer_size (&coding, truelen);
buf = (unsigned char *) xmalloc (bufsize);
unblock:
UNBLOCK_INPUT;
-
+
done:
-
+
return (ret);
}
return Qnil;
}
-void
+void
syms_of_win16select ()
{
defsubr (&Sw16_set_clipboard_data);
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");
+The 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
+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;
}
#endif /* MSDOS */
+
+/* arch-tag: 085a22c8-7324-436e-a6da-102464ce95d8
+ (do not change this comment) */