/* 16-bit Windows Selection processing for emacs on MS-Windows
Copyright (C) 1996, 1997, 2001, 2002, 2003, 2004,
- 2005, 2006, 2007 Free Software Foundation, Inc.
+ 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
This file is part of GNU Emacs.
-GNU Emacs is free software; you can redistribute it and/or modify
+GNU Emacs is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 3, or (at your option)
-any later version.
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
GNU General Public License for more details.
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., 51 Franklin Street, Fifth Floor,
-Boston, MA 02110-1301, USA. */
+along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
/* These functions work by using WinOldAp interface. WinOldAp
(WINOLDAP.MOD) is a Microsoft Windows extension supporting
#include <dpmi.h>
#include <go32.h>
#include <sys/farptr.h>
+#include <setjmp.h>
#include "lisp.h"
#include "dispextern.h" /* frame.h seems to want this */
#include "frame.h" /* Need this to get the X window of selected_frame */
BLOCK_INPUT;
+ if (!open_clipboard ())
+ goto error;
+
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, SCHARS (string), nbytes,
- NULL, Qnil);
-
- if (charset_info == 0)
+ /* Do we need to encode this text? */
+ for (dst = src; dst < src + nbytes; dst++)
{
- /* No multibyte character in OBJ. We need not encode it, but we
+ if (*dst == '\0' || *dst >= 0x80)
+ break;
+ }
+ if (dst >= src + nbytes)
+ {
+ /* No multibyte characters in text. We need not encode it, but we
will have to convert it to DOS CR-LF style. */
no_crlf_conversion = 0;
+ Vlast_coding_system_used = Qraw_text;
+ dst = NULL; /* so we don't try to free a random pointer */
}
else
{
int bufsize;
struct coding_system coding;
unsigned char *htext2;
+ Lisp_Object coding_system =
+ NILP (Vnext_selection_coding_system) ?
+ Vselection_coding_system : Vnext_selection_coding_system;
- if (NILP (Vnext_selection_coding_system))
- Vnext_selection_coding_system = Vselection_coding_system;
- setup_coding_system
- (Fcheck_coding_system (Vnext_selection_coding_system), &coding);
- if (SYMBOLP (coding.pre_write_conversion)
- && !NILP (Ffboundp (coding.pre_write_conversion)))
- {
- string = run_pre_post_conversion_on_str (string, &coding, 1);
- src = SDATA (string);
- nbytes = SBYTES (string);
- }
- coding.src_multibyte = 1;
- coding.dst_multibyte = 0;
+ setup_coding_system (Fcheck_coding_system (coding_system), &coding);
+ coding.dst_bytes = nbytes * 4;
+ coding.destination = (unsigned char *) xmalloc (coding.dst_bytes);
Vnext_selection_coding_system = Qnil;
coding.mode |= CODING_MODE_LAST_BLOCK;
- Vlast_coding_system_used = coding.symbol;
- bufsize = encoding_buffer_size (&coding, nbytes);
- dst = (unsigned char *) xmalloc (bufsize);
- encode_coding (&coding, src, dst, nbytes, bufsize);
+ dst = coding.destination;
+ encode_coding_object (&coding, string, 0, 0,
+ SCHARS (string), nbytes, Qnil);
no_crlf_conversion = 1;
nbytes = coding.produced;
+ Vlast_coding_system_used = CODING_ID_NAME (coding.id);
src = dst;
}
- if (!open_clipboard ())
- goto error;
-
ok = empty_clipboard ()
&& ((put_status
= set_clipboard_data (CF_OEMTEXT, src, nbytes, no_crlf_conversion))
== 0);
if (!no_crlf_conversion)
- Vlast_coding_system_used = Qraw_text;
close_clipboard ();
if (ok) goto unblock;
ok = 0;
unblock:
- if (dst)
- xfree (dst);
+ xfree (dst);
UNBLOCK_INPUT;
/* Notify user if the text is too large to fit into DOS memory.
Lisp_Object frame;
{
unsigned data_size, truelen;
- unsigned char *htext;
+ unsigned char *htext = NULL;
Lisp_Object ret = Qnil;
- int no_crlf_conversion, require_encoding = 0;
+ int no_crlf_conversion, require_decoding = 0;
if (NILP (frame))
frame = Fselected_frame ();
{
if (htext[i] >= 0x80)
{
- require_encoding = 1;
+ require_decoding = 1;
break;
}
}
}
- if (require_encoding)
+ if (require_decoding)
{
int bufsize;
unsigned char *buf;
struct coding_system coding;
+ Lisp_Object coding_system = Vnext_selection_coding_system;
- if (NILP (Vnext_selection_coding_system))
- Vnext_selection_coding_system = Vselection_coding_system;
- setup_coding_system
- (Fcheck_coding_system (Vnext_selection_coding_system), &coding);
- coding.src_multibyte = 0;
- coding.dst_multibyte = 1;
- Vnext_selection_coding_system = Qnil;
+ truelen = get_clipboard_data (CF_OEMTEXT, htext, data_size, 1);
+ if (NILP (coding_system))
+ coding_system = Vselection_coding_system;
+ setup_coding_system (Fcheck_coding_system (coding_system), &coding);
+ coding.source = htext;
coding.mode |= CODING_MODE_LAST_BLOCK;
- /* We explicitely disable composition handling because selection
+ /* We explicitly 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);
- decode_coding (&coding, htext, buf, truelen, bufsize);
- ret = make_string_from_bytes ((char *) buf,
- coding.produced_char, coding.produced);
- xfree (buf);
- if (SYMBOLP (coding.post_read_conversion)
- && !NILP (Ffboundp (coding.post_read_conversion)))
- ret = run_pre_post_conversion_on_str (ret, &coding, 0);
- Vlast_coding_system_used = coding.symbol;
+ coding.mode &= 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);
}
else
{
}
xfree (htext);
+ Vnext_selection_coding_system = Qnil;
closeclip:
close_clipboard ();