Mercurial > emacs
annotate src/w16select.c @ 23031:5e2bc240edfc
(language-info-alist): Doc-string
modified.
(set-language-info-alist): Fix typo in doc-string. Update
setup-language-environment-map unconditionally.
(mule-keymap): Key bindings for set-selection-coding-system and
set-next-selection-coding-system.
(set-coding-system-map): Add items of set-selection-coding-system
and set-next-selection-coding-system.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Sat, 15 Aug 1998 01:28:14 +0000 |
parents | 37738fa8626a |
children | ecc4641bf00a |
rev | line source |
---|---|
21709
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
1 /* 16-bit Windows Selection processing for emacs on MS-Windows |
17451 | 2 Copyright (C) 1996, 1997 Free Software Foundation. |
3 | |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
8 the Free Software Foundation; either version 2, or (at your option) | |
9 any later version. | |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
19 Boston, MA 02111-1307, USA. */ | |
20 | |
21 /* These functions work by using WinOldAp interface. WinOldAp | |
22 (WINOLDAP.MOD) is a Microsoft Windows extension supporting | |
23 "old" (character-mode) application access to Dynamic Data Exchange, | |
24 menus, and the Windows clipboard. */ | |
25 | |
26 /* Written by Dale P. Smith <dpsm@en.com> */ | |
27 /* Adapted to DJGPP v1 by Eli Zaretskii <eliz@is.elta.co.il> */ | |
28 | |
29 #ifdef MSDOS | |
30 | |
31 #include <config.h> | |
32 #include <string.h> | |
33 #include <dpmi.h> | |
34 #include <go32.h> | |
35 #include <sys/farptr.h> | |
36 #include "lisp.h" | |
37 #include "dispextern.h" /* frame.h seems to want this */ | |
38 #include "frame.h" /* Need this to get the X window of selected_frame */ | |
39 #include "blockinput.h" | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
40 #include "buffer.h" |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
41 #include "charset.h" |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
42 #include "coding.h" |
17451 | 43 |
44 /* If ever some function outside this file will need to call any | |
45 clipboard-related function, the following prototypes and constants | |
46 should be put on a header file. Right now, nobody else uses them. */ | |
47 | |
48 #define CF_TEXT 0x01 | |
49 #define CF_BITMAP 0x02 | |
50 #define CF_METAFILE 0x03 | |
51 #define CF_SYLK 0x04 | |
52 #define CF_DIF 0x05 | |
53 #define CF_TIFF 0x06 | |
54 #define CF_OEMTEXT 0x07 | |
55 #define CF_DIBBITMAP 0x08 | |
56 #define CF_WINWRITE 0x80 | |
57 #define CF_DSPTEXT 0x81 | |
58 #define CF_DSPBITMAP 0x82 | |
59 | |
60 unsigned identify_winoldap_version (void); | |
61 unsigned open_clipboard (void); | |
62 unsigned empty_clipboard (void); | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
63 unsigned set_clipboard_data (unsigned, void *, unsigned, int); |
17451 | 64 unsigned get_clipboard_data_size (unsigned); |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
65 unsigned get_clipboard_data (unsigned, void *, unsigned, int); |
17451 | 66 unsigned close_clipboard (void); |
67 unsigned clipboard_compact (unsigned); | |
68 | |
69 Lisp_Object QCLIPBOARD, QPRIMARY; | |
70 | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
71 /* Coding system for communicating with other Windows programs via the |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
72 clipboard. */ |
22904
37738fa8626a
(Fw16_set_clipboard_data, Fw16_get_clipboard_data, syms_of_win16select):
Eli Zaretskii <eliz@gnu.org>
parents:
22749
diff
changeset
|
73 static Lisp_Object Vselection_coding_system; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
74 |
17451 | 75 /* The segment address and the size of the buffer in low |
76 memory used to move data between us and WinOldAp module. */ | |
77 | |
78 static struct { | |
79 unsigned long size; | |
80 unsigned short rm_segment; | |
81 } clipboard_xfer_buf_info; | |
82 | |
83 /* Emulation of `__dpmi_int' and friends for DJGPP v1.x */ | |
84 | |
85 #if __DJGPP__ < 2 | |
86 | |
87 typedef _go32_dpmi_registers __dpmi_regs; | |
88 #define __tb _go32_info_block.linear_address_of_transfer_buffer | |
89 #define _dos_ds _go32_info_block.selector_for_linear_memory | |
90 | |
91 static int | |
92 __dpmi_int (intno, regs) | |
93 int intno; | |
94 __dpmi_regs *regs; | |
95 { | |
96 regs->x.ss = regs->x.sp = regs->x.flags = 0; | |
97 return _go32_dpmi_simulate_int (intno, regs); | |
98 } | |
99 | |
100 #endif /* __DJGPP__ < 2 */ | |
101 | |
102 /* C functions to access the Windows 3.1x clipboard from DOS apps. | |
103 | |
104 The information was obtained from the Microsoft Knowledge Base, | |
105 article Q67675 and can be found at: | |
106 http://www.microsoft.com/kb/developr/win_dk/q67675.htm */ | |
107 | |
108 /* See also Ralf Brown's Interrupt List. | |
109 | |
110 I also seem to remember reading about this in Dr. Dobbs Journal a | |
111 while ago, but if you knew my memory... :-) | |
112 | |
113 Dale P. Smith <dpsm@en.com> */ | |
114 | |
115 /* Return the WinOldAp support version, or 0x1700 if not supported. */ | |
116 unsigned | |
117 identify_winoldap_version () | |
118 { | |
119 __dpmi_regs regs; | |
120 | |
121 /* Calls Int 2Fh/AX=1700h | |
122 Return Values AX == 1700H: Clipboard functions not available | |
123 <> 1700H: AL = Major version number | |
124 AH = Minor version number */ | |
125 regs.x.ax = 0x1700; | |
126 __dpmi_int(0x2f, ®s); | |
127 return regs.x.ax; | |
128 } | |
129 | |
130 /* Open the clipboard, return non-zero if successfull. */ | |
131 unsigned | |
132 open_clipboard () | |
133 { | |
134 __dpmi_regs regs; | |
135 | |
136 /* Is WINOLDAP supported? */ | |
137 /* Kludge alert!! If WinOldAp is not supported, we return a 0, | |
138 which is the same as ``Clipboard already open''. Currently, | |
139 this is taken as an error by all the functions that use | |
140 `open_clipboard', but if somebody someday will use that ``open'' | |
141 clipboard, they will have interesting time debugging it... */ | |
142 if (identify_winoldap_version () == 0x1700) | |
143 return 0; | |
144 | |
145 /* Calls Int 2Fh/AX=1701h | |
146 Return Values AX == 0: Clipboard already open | |
147 <> 0: Clipboard opened */ | |
148 regs.x.ax = 0x1701; | |
149 __dpmi_int(0x2f, ®s); | |
150 return regs.x.ax; | |
151 } | |
152 | |
153 /* Empty clipboard, return non-zero if successfull. */ | |
154 unsigned | |
155 empty_clipboard () | |
156 { | |
157 __dpmi_regs regs; | |
158 | |
159 /* Calls Int 2Fh/AX=1702h | |
160 Return Values AX == 0: Error occurred | |
161 <> 0: OK, Clipboard emptied */ | |
162 regs.x.ax = 0x1702; | |
163 __dpmi_int(0x2f, ®s); | |
164 return regs.x.ax; | |
165 } | |
166 | |
167 /* Ensure we have a buffer in low memory with enough memory for data | |
168 of size WANT_SIZE. Return the linear address of the buffer. */ | |
169 static unsigned long | |
170 alloc_xfer_buf (want_size) | |
171 unsigned want_size; | |
172 { | |
173 __dpmi_regs regs; | |
174 | |
175 /* If the usual DJGPP transfer buffer is large enough, use that. */ | |
176 if (want_size <= _go32_info_block.size_of_transfer_buffer) | |
177 return __tb & 0xfffff; | |
178 | |
21709
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
179 /* Don't even try to allocate more than 1MB of memory: DOS cannot |
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
180 possibly handle that (it will overflow the BX register below). */ |
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
181 if (want_size > 0xfffff) |
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
182 return 0; |
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
183 |
17451 | 184 /* Need size rounded up to the nearest paragraph, and in |
185 paragraph units (1 paragraph = 16 bytes). */ | |
186 clipboard_xfer_buf_info.size = (want_size + 15) >> 4; | |
187 | |
188 /* The NT DPMI host crashes us if we free DOS memory via the | |
189 DPMI service. Work around by calling DOS allocate/free block. */ | |
190 regs.h.ah = 0x48; | |
191 regs.x.bx = clipboard_xfer_buf_info.size; | |
192 __dpmi_int (0x21, ®s); | |
193 if (regs.x.flags & 1) | |
194 { | |
195 clipboard_xfer_buf_info.size = 0; | |
196 return 0; | |
197 } | |
198 | |
199 clipboard_xfer_buf_info.rm_segment = regs.x.ax; | |
200 return (((int)clipboard_xfer_buf_info.rm_segment) << 4) & 0xfffff; | |
201 } | |
202 | |
203 /* Free our clipboard buffer. We always free it after use, because | |
204 keeping it leaves less free conventional memory for subprocesses. | |
205 The clipboard buffer tends to be large in size, because for small | |
206 clipboard data sizes we use the DJGPP transfer buffer. */ | |
207 static void | |
208 free_xfer_buf () | |
209 { | |
210 /* If the size is 0, we used DJGPP transfer buffer, so don't free. */ | |
211 if (clipboard_xfer_buf_info.size) | |
212 { | |
213 __dpmi_regs regs; | |
214 | |
215 /* The NT DPMI host crashes us if we free DOS memory via | |
216 the DPMI service. Work around by calling DOS free block. */ | |
217 regs.h.ah = 0x49; | |
218 regs.x.es = clipboard_xfer_buf_info.rm_segment; | |
219 __dpmi_int (0x21, ®s); | |
220 clipboard_xfer_buf_info.size = 0; | |
221 } | |
222 } | |
223 | |
224 /* Copy data into the clipboard, return non-zero if successfull. */ | |
225 unsigned | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
226 set_clipboard_data (Format, Data, Size, Raw) |
17451 | 227 unsigned Format; |
228 void *Data; | |
229 unsigned Size; | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
230 int Raw; |
17451 | 231 { |
232 __dpmi_regs regs; | |
233 unsigned truelen; | |
234 unsigned long xbuf_addr, buf_offset; | |
235 unsigned char *dp = Data, *dstart = dp; | |
236 | |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
237 if (Format != CF_OEMTEXT) |
17451 | 238 return 0; |
239 | |
240 /* need to know final size after '\r' chars are inserted (the | |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
241 standard CF_OEMTEXT clipboard format uses CRLF line endings, |
17451 | 242 while Emacs uses just LF internally). */ |
243 truelen = Size; | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
244 |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
245 if (!Raw) |
17451 | 246 { |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
247 /* avoid using strchr because it recomputes the length everytime */ |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
248 while ((dp = memchr (dp, '\n', Size - (dp - dstart))) != 0) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
249 { |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
250 truelen++; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
251 dp++; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
252 } |
17451 | 253 } |
254 | |
255 if (clipboard_compact (truelen) < truelen) | |
256 return 0; | |
257 | |
258 if ((xbuf_addr = alloc_xfer_buf (truelen)) == 0) | |
259 return 0; | |
260 | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
261 /* Move the buffer into the low memory, convert LF into CR-LF if needed. */ |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
262 if (Raw) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
263 dosmemput (Data, truelen, __tb); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
264 else |
17451 | 265 { |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
266 dp = Data; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
267 buf_offset = xbuf_addr; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
268 _farsetsel (_dos_ds); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
269 while (Size--) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
270 { |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
271 if (*dp == '\n') |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
272 _farnspokeb (buf_offset++, '\r'); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
273 _farnspokeb (buf_offset++, *dp++); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
274 } |
17451 | 275 } |
276 | |
277 /* Calls Int 2Fh/AX=1703h with: | |
278 DX = WinOldAp-Supported Clipboard format | |
279 ES:BX = Pointer to data | |
280 SI:CX = Size of data in bytes | |
281 Return Values AX == 0: Error occurred | |
282 <> 0: OK. Data copied into the Clipboard. */ | |
283 regs.x.ax = 0x1703; | |
284 regs.x.dx = Format; | |
285 regs.x.si = truelen >> 16; | |
286 regs.x.cx = truelen & 0xffff; | |
287 regs.x.es = xbuf_addr >> 4; | |
288 regs.x.bx = xbuf_addr & 15; | |
289 __dpmi_int(0x2f, ®s); | |
290 | |
291 free_xfer_buf (); | |
292 | |
293 return regs.x.ax; | |
294 } | |
295 | |
296 /* Return the size of the clipboard data of format FORMAT. */ | |
297 unsigned | |
298 get_clipboard_data_size (Format) | |
299 unsigned Format; | |
300 { | |
301 __dpmi_regs regs; | |
302 | |
303 /* Calls Int 2Fh/AX=1704h with: | |
304 DX = WinOldAp-Supported Clipboard format | |
305 Return Values DX:AX == Size of the data in bytes, including any | |
306 headers. | |
307 == 0 If data in this format is not in | |
308 the clipboard. */ | |
309 regs.x.ax = 0x1704; | |
310 regs.x.dx = Format; | |
311 __dpmi_int(0x2f, ®s); | |
312 return ( (((unsigned)regs.x.dx) << 16) | regs.x.ax); | |
313 } | |
314 | |
315 /* Get clipboard data, return its length. | |
316 Warning: this doesn't check whether DATA has enough space to hold | |
317 SIZE bytes. */ | |
318 unsigned | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
319 get_clipboard_data (Format, Data, Size, Raw) |
17451 | 320 unsigned Format; |
321 void *Data; | |
322 unsigned Size; | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
323 int Raw; |
17451 | 324 { |
325 __dpmi_regs regs; | |
326 unsigned datalen = 0; | |
327 unsigned long xbuf_addr; | |
328 unsigned char *dp = Data; | |
329 | |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
330 if (Format != CF_OEMTEXT) |
17451 | 331 return 0; |
332 | |
333 if (Size == 0) | |
334 return 0; | |
335 | |
336 if ((xbuf_addr = alloc_xfer_buf (Size)) == 0) | |
337 return 0; | |
338 | |
339 /* Calls Int 2Fh/AX=1705h with: | |
340 DX = WinOldAp-Supported Clipboard format | |
341 ES:BX = Pointer to data buffer to hold data | |
342 Return Values AX == 0: Error occurred (or data in this format is not | |
343 in the clipboard) | |
344 <> 0: OK */ | |
345 regs.x.ax = 0x1705; | |
346 regs.x.dx = Format; | |
347 regs.x.es = xbuf_addr >> 4; | |
348 regs.x.bx = xbuf_addr & 15; | |
349 __dpmi_int(0x2f, ®s); | |
350 if (regs.x.ax != 0) | |
351 { | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
352 /* Copy data from low memory, remove CR |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
353 characters before LF if needed. */ |
17451 | 354 _farsetsel (_dos_ds); |
355 while (Size--) | |
356 { | |
357 register unsigned char c = _farnspeekb (xbuf_addr++); | |
358 | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
359 if ((*dp++ = c) == '\r' && !Raw && _farnspeekb (xbuf_addr) == '\n') |
17451 | 360 { |
361 dp--; | |
362 *dp++ = '\n'; | |
363 xbuf_addr++; | |
364 } | |
365 /* Windows reportedly rounds up the size of clipboard data | |
366 (passed in SIZE) to a multiple of 32. We therefore bail | |
367 out when we see the first null character. */ | |
368 else if (c == '\0') | |
369 { | |
370 datalen = dp - (unsigned char *)Data - 1; | |
371 break; | |
372 } | |
373 } | |
374 } | |
375 | |
376 free_xfer_buf (); | |
377 | |
378 return datalen; | |
379 } | |
380 | |
381 /* Close clipboard, return non-zero if successfull. */ | |
382 unsigned | |
383 close_clipboard () | |
384 { | |
385 __dpmi_regs regs; | |
386 | |
387 /* Calls Int 2Fh/AX=1708h | |
388 Return Values AX == 0: Error occurred | |
389 <> 0: OK */ | |
390 regs.x.ax = 0x1708; | |
391 __dpmi_int(0x2f, ®s); | |
392 return regs.x.ax; | |
393 } | |
394 | |
395 /* Compact clipboard data so that at least SIZE bytes is available. */ | |
396 unsigned | |
397 clipboard_compact (Size) | |
398 unsigned Size; | |
399 { | |
400 __dpmi_regs regs; | |
401 | |
402 /* Calls Int 2Fh/AX=1709H with: | |
403 SI:CX = Desired memory size in bytes. | |
404 Return Values DX:AX == Number of bytes of largest block of free memory. | |
405 == 0 if error or no memory */ | |
406 regs.x.ax = 0x1709; | |
407 regs.x.si = Size >> 16; | |
408 regs.x.cx = Size & 0xffff; | |
409 __dpmi_int(0x2f, ®s); | |
410 return ((unsigned)regs.x.dx << 16) | regs.x.ax; | |
411 } | |
412 | |
413 static char no_mem_msg[] = | |
414 "(Not enough DOS memory to put saved text into clipboard.)"; | |
415 | |
21709
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
416 DEFUN ("w16-set-clipboard-data", Fw16_set_clipboard_data, Sw16_set_clipboard_data, 1, 2, 0, |
17451 | 417 "This sets the clipboard data to the given text.") |
418 (string, frame) | |
419 Lisp_Object string, frame; | |
420 { | |
421 int ok = 1, ok1 = 1; | |
422 int nbytes; | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
423 unsigned char *src, *dst = NULL; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
424 int charsets[MAX_CHARSET + 1]; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
425 int num; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
426 int no_crlf_conversion; |
17451 | 427 |
428 CHECK_STRING (string, 0); | |
429 | |
430 if (NILP (frame)) | |
431 frame = Fselected_frame (); | |
432 | |
433 CHECK_LIVE_FRAME (frame, 0); | |
434 if ( !FRAME_MSDOS_P (XFRAME (frame))) | |
435 goto done; | |
436 | |
437 BLOCK_INPUT; | |
438 | |
22904
37738fa8626a
(Fw16_set_clipboard_data, Fw16_get_clipboard_data, syms_of_win16select):
Eli Zaretskii <eliz@gnu.org>
parents:
22749
diff
changeset
|
439 nbytes = STRING_BYTES (XSTRING (string)); |
17451 | 440 src = XSTRING (string)->data; |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
441 |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
442 /* Since we are now handling multilingual text, we must consider |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
443 encoding text for the clipboard. */ |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
444 |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
445 bzero (charsets, (MAX_CHARSET + 1) * sizeof (int)); |
22904
37738fa8626a
(Fw16_set_clipboard_data, Fw16_get_clipboard_data, syms_of_win16select):
Eli Zaretskii <eliz@gnu.org>
parents:
22749
diff
changeset
|
446 num = ((nbytes <= 1 /* Check the possibility of short cut. */ |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
447 || NILP (buffer_defaults.enable_multibyte_characters)) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
448 ? 0 |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
449 : find_charset_in_str (src, nbytes, charsets, Qnil, 1)); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
450 |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
451 if (!num || (num == 1 && charsets[CHARSET_ASCII])) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
452 { |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
453 /* No multibyte character in OBJ. We need not encode it, but we |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
454 will have to convert it to DOS CR-LF style. */ |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
455 no_crlf_conversion = 0; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
456 } |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
457 else |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
458 { |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
459 /* We must encode contents of STRING according to what |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
460 clipboard-coding-system specifies. */ |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
461 int bufsize; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
462 struct coding_system coding; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
463 unsigned char *htext2; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
464 |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
465 setup_coding_system |
22904
37738fa8626a
(Fw16_set_clipboard_data, Fw16_get_clipboard_data, syms_of_win16select):
Eli Zaretskii <eliz@gnu.org>
parents:
22749
diff
changeset
|
466 (Fcheck_coding_system (Vselection_coding_system), &coding); |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
467 coding.mode |= CODING_MODE_LAST_BLOCK; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
468 Vlast_coding_system_used = coding.symbol; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
469 bufsize = encoding_buffer_size (&coding, nbytes); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
470 dst = (unsigned char *) xmalloc (bufsize); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
471 encode_coding (&coding, src, dst, nbytes, bufsize); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
472 no_crlf_conversion = 1; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
473 } |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
474 |
17451 | 475 if (!open_clipboard ()) |
476 goto error; | |
477 | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
478 ok = empty_clipboard () |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
479 && (ok1 = set_clipboard_data (CF_OEMTEXT, src, nbytes, no_crlf_conversion)); |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
480 |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
481 if (!no_crlf_conversion) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
482 Vlast_coding_system_used = Qraw_text; |
17451 | 483 close_clipboard (); |
484 | |
21707
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
485 if (ok) goto unblock; |
17451 | 486 |
487 error: | |
488 | |
489 ok = 0; | |
490 | |
21707
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
491 unblock: |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
492 if (dst) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
493 xfree (dst); |
21707
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
494 UNBLOCK_INPUT; |
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
495 |
17451 | 496 /* Notify user if the text is too large to fit into DOS memory. |
497 (This will happen somewhere after 600K bytes (470K in DJGPP v1.x), | |
498 depending on user system configuration.) If we just silently | |
499 fail the function, people might wonder why their text sometimes | |
500 doesn't make it to the clipboard. */ | |
501 if (ok1 == 0) | |
502 { | |
21417
7a310ef91b2d
(Fwin16_set_clipboard_data): Call message2 with 3
Karl Heuer <kwzh@gnu.org>
parents:
17960
diff
changeset
|
503 message2 (no_mem_msg, sizeof (no_mem_msg) - 1, 0); |
17960
5c31b98be973
(Fwin16_set_clipboard_data): Pass new arg to sit_for.
Richard M. Stallman <rms@gnu.org>
parents:
17451
diff
changeset
|
504 sit_for (2, 0, 0, 1, 1); |
17451 | 505 } |
506 | |
507 done: | |
508 | |
509 return (ok ? string : Qnil); | |
510 } | |
511 | |
21709
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
512 DEFUN ("w16-get-clipboard-data", Fw16_get_clipboard_data, Sw16_get_clipboard_data, 0, 1, 0, |
17451 | 513 "This gets the clipboard data in text format.") |
514 (frame) | |
515 Lisp_Object frame; | |
516 { | |
517 unsigned data_size, truelen; | |
518 unsigned char *htext; | |
519 Lisp_Object ret = Qnil; | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
520 int no_crlf_conversion; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
521 int require_encoding = 0; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
522 |
17451 | 523 if (NILP (frame)) |
524 frame = Fselected_frame (); | |
525 | |
526 CHECK_LIVE_FRAME (frame, 0); | |
527 if ( !FRAME_MSDOS_P (XFRAME (frame))) | |
528 goto done; | |
529 | |
530 BLOCK_INPUT; | |
531 | |
532 if (!open_clipboard ()) | |
21707
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
533 goto unblock; |
17451 | 534 |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
535 if ((data_size = get_clipboard_data_size (CF_OEMTEXT)) == 0 || |
17451 | 536 (htext = (unsigned char *)xmalloc (data_size)) == 0) |
537 goto closeclip; | |
538 | |
539 /* need to know final size after '\r' chars are removed because | |
540 we can't change the string size manually, and doing an extra | |
541 copy is silly */ | |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
542 if ((truelen = get_clipboard_data (CF_OEMTEXT, htext, data_size, 0)) == 0) |
17451 | 543 goto closeclip; |
544 | |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
545 /* Do we need to decode it? */ |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
546 if (! NILP (buffer_defaults.enable_multibyte_characters)) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
547 { |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
548 /* If the clipboard data contains any 8-bit Latin-1 code, we |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
549 need to decode it. */ |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
550 int i; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
551 |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
552 for (i = 0; i < truelen; i++) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
553 { |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
554 if (htext[i] >= 0x80) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
555 { |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
556 require_encoding = 1; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
557 break; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
558 } |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
559 } |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
560 } |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
561 if (require_encoding) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
562 { |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
563 int bufsize; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
564 unsigned char *buf; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
565 struct coding_system coding; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
566 |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
567 setup_coding_system |
22904
37738fa8626a
(Fw16_set_clipboard_data, Fw16_get_clipboard_data, syms_of_win16select):
Eli Zaretskii <eliz@gnu.org>
parents:
22749
diff
changeset
|
568 (Fcheck_coding_system (Vselection_coding_system), &coding); |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
569 coding.mode |= CODING_MODE_LAST_BLOCK; |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
570 truelen = get_clipboard_data (CF_OEMTEXT, htext, data_size, 1); |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
571 bufsize = decoding_buffer_size (&coding, truelen); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
572 buf = (unsigned char *) xmalloc (bufsize); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
573 decode_coding (&coding, htext, buf, truelen, bufsize); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
574 truelen = (coding.fake_multibyte |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
575 ? multibyte_chars_in_text (buf, coding.produced) |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
576 : coding.produced_char); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
577 ret = make_string_from_bytes ((char *) buf, truelen, coding.produced); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
578 xfree (buf); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
579 Vlast_coding_system_used = coding.symbol; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
580 } |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
581 else |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
582 { |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
583 ret = make_unibyte_string ((char *) htext, truelen); |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
584 Vlast_coding_system_used = Qraw_text; |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
585 } |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
586 |
17451 | 587 xfree (htext); |
588 | |
589 closeclip: | |
590 close_clipboard (); | |
21707
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
591 |
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
592 unblock: |
7b76832ac019
(Fwin16_set_clipboard_data): Call UNBLOCK_INPUT before calling sit_for.
Eli Zaretskii <eliz@gnu.org>
parents:
21417
diff
changeset
|
593 UNBLOCK_INPUT; |
17451 | 594 |
595 done: | |
596 | |
597 return (ret); | |
598 } | |
599 | |
600 /* Support checking for a clipboard selection. */ | |
601 | |
602 DEFUN ("x-selection-exists-p", Fx_selection_exists_p, Sx_selection_exists_p, | |
603 0, 1, 0, | |
604 "Whether there is an owner for the given X Selection.\n\ | |
605 The arg should be the name of the selection in question, typically one of\n\ | |
606 the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.\n\ | |
607 \(Those are literal upper-case symbol names, since that's what X expects.)\n\ | |
608 For convenience, the symbol nil is the same as `PRIMARY',\n\ | |
609 and t is the same as `SECONDARY'.") | |
610 (selection) | |
611 Lisp_Object selection; | |
612 { | |
613 CHECK_SYMBOL (selection, 0); | |
614 | |
615 /* Return nil for SECONDARY selection. For PRIMARY (or nil) | |
616 selection, check if there is some text on the kill-ring; | |
617 for CLIPBOARD, check if the clipboard currently has valid | |
618 text format contents. | |
619 | |
620 The test for killed text on the kill-ring emulates the Emacs | |
621 behavior on X, where killed text is also put into X selection | |
622 by the X interface code. (On MSDOS, killed text is only put | |
623 into the clipboard if we run under Windows, so we cannot check | |
624 the clipboard alone.) */ | |
625 if ((EQ (selection, Qnil) || EQ (selection, QPRIMARY)) | |
626 && ! NILP (XSYMBOL (Fintern_soft (build_string ("kill-ring"), | |
627 Qnil))->value)) | |
628 return Qt; | |
629 | |
630 if (EQ (selection, QCLIPBOARD)) | |
631 { | |
632 Lisp_Object val = Qnil; | |
633 | |
634 if (open_clipboard ()) | |
635 { | |
22749
14bde44d261c
(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data,
Eli Zaretskii <eliz@gnu.org>
parents:
22729
diff
changeset
|
636 if (get_clipboard_data_size (CF_OEMTEXT)) |
17451 | 637 val = Qt; |
638 close_clipboard (); | |
639 } | |
640 return val; | |
641 } | |
642 return Qnil; | |
643 } | |
644 | |
645 void | |
646 syms_of_win16select () | |
647 { | |
21709
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
648 defsubr (&Sw16_set_clipboard_data); |
64adf1f4d54d
(alloc_xfer_buf): If want_size is more than 1MB,
Eli Zaretskii <eliz@gnu.org>
parents:
21707
diff
changeset
|
649 defsubr (&Sw16_get_clipboard_data); |
17451 | 650 defsubr (&Sx_selection_exists_p); |
651 | |
22904
37738fa8626a
(Fw16_set_clipboard_data, Fw16_get_clipboard_data, syms_of_win16select):
Eli Zaretskii <eliz@gnu.org>
parents:
22749
diff
changeset
|
652 DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system, |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
653 "Coding system for communicating with other X clients.\n\ |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
654 When sending or receiving text via cut_buffer, selection, and clipboard,\n\ |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
655 the text is encoded or decoded by this coding system.\n\ |
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
656 A default value is `iso-latin-1-dos'"); |
22904
37738fa8626a
(Fw16_set_clipboard_data, Fw16_get_clipboard_data, syms_of_win16select):
Eli Zaretskii <eliz@gnu.org>
parents:
22749
diff
changeset
|
657 Vselection_coding_system=intern ("iso-latin-1-dos"); |
37738fa8626a
(Fw16_set_clipboard_data, Fw16_get_clipboard_data, syms_of_win16select):
Eli Zaretskii <eliz@gnu.org>
parents:
22749
diff
changeset
|
658 staticpro(&Vselection_coding_system); |
22729
3537e1563a66
(Vclipboard_coding_system): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
21709
diff
changeset
|
659 |
17451 | 660 QPRIMARY = intern ("PRIMARY"); staticpro (&QPRIMARY); |
661 QCLIPBOARD = intern ("CLIPBOARD"); staticpro (&QCLIPBOARD); | |
662 } | |
663 | |
664 #endif /* MSDOS */ |